It's been pointed out that this only works for 5.8
$_=unpack'B*',pack'N*',7516444,364737028,1746469154;# ~ ~ tr[1][2];print+sort{-1+chop}'aaceeehhJklnoprrrsttu '=~m|(.)(.)|g; # \
Update: This version works on 5.6.1 .
$_=unpack'B*',pack'N*',534308,1499842816,4101233933;# \ / tr[1][2];print+sort{-1+chop}'aaceeehhJklnoprrrsttu '=~m{(.)(.)}g; # J
|
|---|