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