C:\_32\strawberry5.20.0>perl -e "srand 42; print sort {4-rand 9} split //, 'ts aroMrhirsae C tll!!ym';"
l ttyaMeos  arrCsrihm!!l