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