19:01 >perl -e "srand 42; print sort {4-rand 9} split //, 'ts aroMrhirsae C tll!!ym';" l ttyaMeos arrCsrihm!!l 19:01 >perl -e "use Math::Random::Mt qw[rand srand]; srand 42; print sort {4-rand 9} split //, 'ts aroMrhirsae C tll!!ym';" l ttyaMeos arrCsrihm!!l 19:01 >perl -v This is perl 5, version 20, subversion 0 (v5.20.0) built for MSWin32-x64-multi-thread