$hack = reverse split(' ',$_), reverse join ' ',(qw/106 97 112 104/); @hack = split(' ',$hack);print scalar (chr reverse ($_))."\n", for(@hack);