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