perl -e'$_=sprintf("%08b"x12,map hex,"194e8e91cc3a0097991c0350"=~/../g);print sort{(1+chop)*2-3}split"","Puht r arJtel\ncerae on,khs";'