$e=join(6,(23,6,387));sub
o{eval$x}sub t{$_.=substr
(crypt(
substr(
$e,$l,$
i=shift),shift),shift
,$x=shift).q$"$x($x!=
3);$l+=
$i}$e*=
3904*51
;$x=q$&t;$x4;$q=q;3,19,4,
3,2,ord(_),5,2,4,20,3,3,4
,22,3,4,;;&o(eval$q);eval