$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