12:00 >perl -e "print sort {4-rand 9} split //, HnlcrhJsre_Pt_aeAeuot_kr if srand JAPH;"
Integer overflow in srand at -e line 1.
_nhoeuJAHl_ktscPrt_rreea
12:00 >perl -v

This is perl 5, version 18, subversion 1 (v5.18.1) built for MSWin32-x86-multi-thread-64int
...