It seems that every monk worthy of the cowl has to have an obfu'd sig, so I thought I'd have a go. This is in homage to joecamel's brilliant It Came From the Crypt! and everyone who's managed a clever sig in 1/3 of the characters I've used.

$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
[download]