Select Code to Download

$str = '
According  to a researcher at an English university, it doesn\'t 
matter in what order the letters in a word are.';
$str =~ s/(\w)(\w+)/split"",$2;$,="";$,.=splice@_,rand@_,1while@_;$1.$
+,/eg;
print $str;

($_='kkvvttuubbooppuuiiffssqqffssmmiibbddllffss')
 =~y~b-v~a-z~s;                             print