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

Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
Hooray!