* Etienne Grossmann <[EMAIL PROTECTED]> [2003-09-18 09:29]: > I hared a sutdy has been dnoe on taht scjebut in an Eigslnh > urtiivesny, but I coannt get hold of it. Any ionirmtfoan on > that sceujbt is welomce.
http://www.bisso.com/ujg_archives/000224.html > perl -pe 'sub r{join"",map chop,sort > map{rand().$_}shift=~/(.)/g};s/\b(\w)(\w*)(\w)\b/$1.r($2).$3/eg' perl -pe's/(?<=[a-z])([a-z]+)(?=[a-z])/join"",map chop, sort map rand().$_,$1=~m[.]g/ige' perl -MList::Util=shuffle -pe's/(?<=[a-z])([a-z]+)(?=[a-z])/join"",shuffle$1=~m[.]g/ige' -- Regards, Aristotle "If you can't laugh at yourself, you don't take life seriously enough."
