#!/usr/bin/perl -w
use strict;my%

g = ('D\J{N]QRR\&S.HAy7z9 r['=>'  => got perl ? <= ');my@
o = keys%g;my@
t = split"",(shift@o);my$

p = pack'c',74;my$
e = sub{while(@_){my$
r = shift;$!=unpack'c',$r;my$
l = shift;$p.=substr$!,(unpack'c',$l)/10,
      (unpack'c',$l)%10;}};
      &$e(@t);print$p,$/;