or download this
open(F,$0);$f=join("",<F>);close(F);@s=map{(map(chr,(index($f,join(""
,(map(chr,(41,41,41,46,46)))))..index($f,join("",(map(chr,(112,40,99)
...
(40,70,41))))),index($f,join("",(map(chr,(109,97,112,40))))))))[$_];}
(9,20,18,19,26,0,13,14,19,7,4,021,26,15,4,17,11,26,7,0,2,10,4,17,27);
splice(@s,0,1,chr(0112));splice(@s,13,1,chr(80));$_=join("",@s);print