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

##</code><code>##

C:\_32\strawberry5.18.2>perl -e "srand 42; print sort {4-rand 9} split //, 'ts aroMrhirsae C tll!!ym';"
Merry Christmas to all!!
C:\_32\strawberry5.18.2>