I was bored this evening so...
$/='mkd@h lqvj}" |[mhrqj@ WW RB ?=H
;]B y[I LO] opq rc@ PB yS MLQ
}By SS] hlq vj@ twq vP GG Rsa
hPw lbPB|=B?;Q ^By_B|=B ?;\eplP ByQ
RH VVB E|Q QVD :lD ]m rc
ch@I ]{{ ';$n ='4 km j@ !vw
jpcl@(clr@0aeucl';$r=sub{$z=shift;$b[$_]=vec
($z,$_,1) for 0..7;my $v.=$b[0];$v.=$b[$_+1]
.$b[$_] for (1,3,5);$v.=$b[7];return pack
'b*',$v;};$n=~y/"\n / /d;$e=sub{eval
$_[0];$";};$t=sub{join'',map(
&$r($_),(split //,$_[0]
));};$"=&$t($n);$|=
1;$/=~y/"\n / /d;
&print(&$e(
&$t($/)
));
Hope you like it
UnderMine