On Thu, Sep 18, 2003 at 08:44:45AM +0100, Etienne Grossmann wrote:
> PS : Ok, ok, the ublmaecsrnd sprict is :
>
> perl -pe 'sub r{join"",map chop,sort
> map{rand().$_}shift=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg'
Slhgit iomeevmnrpts
perl -pe'sub r{join"",map chop,sort map
rand.$_,split//,pop}s/(?<=\w)\w+(?=\w)/r($&)/eg'
Tehre must be a beettr way...
--
Keep your laws off my body!
