From: Alex Barrett <al.barrett@...>
Date: 2006-04-23T01:39:31+09:00
Subject: Re: Text Munger (#76)

------=_Part_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/(?<=3D[a-z])[a-z]+(?=3D[a-z])/join"",sort{rand>0.5}split"",$&/egi'
>
> (69 chars)
>
> --
> Posted via http://www.ruby-forum.com/.
>
>

------=_Part_34968_3351254.1145723968733--