perl -MList::Util=/./ -pe's:\B\w+\B:join"",shuffle $&=~/./g:ge'