$a=" Jacehklnoprstu";@b=split//,"1ECD0289D54B0A4B7052364B";
foreach $c(@b){$d.=substr($a,hex($c),1);}print"$d\n";