in reply to Re: Fun with words (Golf?)in thread Fun with words (Golf?)
66 s[\B(\w+)\B][join'',sort{.5>rand}split'',$1]ge,print while<DATA>; [download]
s[\B(\w+)\B][join'',sort{.5>rand}split'',$1]ge,print while<DATA>; [download]
s|\B\w+\B|join'',sort{.5>rand}$&=~/./g|ge,print for<DATA> [download]