$x;$d="1151";$b="12108";$a;$d.=$b. "105"."11601"."1401"."111601";$x= sub{for(0..4){($d=~s/(\d{3})//);$c .=chr($1);}$c.="//";};;$a=sub{@l= reverse((eval(&$x.','.shift)));join "",@l;};;($o=&$a('$d')||'')=~s/ (.{3})/chr($1)/gxe;print$o;