From: sabbyxtabby@... (Sabby and Tabby)
Date: 2003-09-17T09:12:54+09:00
Subject: Re: scrambler one-liner

Xavier Noria <fxn@hashref.com> wrote:

> -pe 'gsub!(/\w+/){|w|r=1..w.size-2;w[r]=w[r].split(//).sort_by{rand}.to_s;w}'

  -pe 'gsub!(/\B\w+\B/){|w|w.split(//).sort_by{rand}}'

In Perl, the criosomapn fnutcoin uesd by srot() is rreqeuid to behave
cisnotsltney, so tihs seohtrr one-lenir may not be ksoher:

  -pe 's!\B\w+\B!join"",sort{.5>rand}$&=~/./g!ge'