my$p;&{sub{map{$p.=chr$_}unpack(join('a',('',split(//,$_->[1]))),#
$_->[0]);$p.=chr(32);}}foreach[qw/74117115116 2333/],#####JAPH####
[qw/65110111116104101114 2333333/],[qw/80101114108 2333/],##JAPH##
[qw/729799107101114 222333/];$_=$p;chop;print,print"\n";###JAPH###