------art_34968_3351254.1145723968733
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Content-Disposition: inline

Use negated word boundaries (\B) instead of the lookarounds to lose a few
characters.

On 22/04/06, PerlyGates <nothanks / example.com> wrote:
>
> unknown wrote:
> > But \w includes underscore.  I think punctuation is supposed to remain
> > unscrambled, isn't it?  And numbers likewise.
>
> Point taken.
>
> perl -pe
> 's/(?<=[a-z])[a-z]+(?=[a-z])/join"",sort{rand>0.5}split"",$&/egi'
>
> (69 chars)
>
> --
> Posted via http://www.ruby-forum.com/.
>
>

------art_34968_3351254.1145723968733--