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
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |