s[\B(\w+)\B][join'',sort{.5>rand}split'',$1]ge,print while<DATA>;

##</code><code>##

s|\B\w+\B|join'',sort{.5>rand}$&=~/./g|ge,print for<DATA>