http://www.perlmonks.org?node_id=117294

#!/usr/bin/perl # It Came From the Crypt! $q= q&9RM 8 ba1c HtJprcG 6SJ3dk aQM 8 p j p8vsY i3UnT f kcRJk9w xW2v h2GVK3 YL1gNvf YEX dBQdE TIdpMu WD9Y CAvK0 BrsuKn9kXUwk aNpj8q ISZgRZkUg2I8W9jJsG8Rg9yeE8LvqZR7A Ho PDIRVAVCgafA9MZjFb31Ea5bqr7gCg X zPpgkPsHjTP8iC2TtVYE0PUR b z Y b3 EQiZrZiIm6Nc81WY qs U g 7m QzHM2VjY62II5Bg 7N e k kt 7 5JLD86&;$u=$q =~ s & \s &&xg&&-2;@v= unpack q &c3&,qq&i\nm &; unshift@v,2 ** 2*2**2*2;%l = map{chr$_} reverse@v;$i =2*2*2&&$q,$q =$i&&8; while( $i=~m& [^ *]{$q} &x){$y = substr (crypt( $&,$&), $u,print );print ! $l{$y} &&$y ne "y"?$y: $l{$y} ;$i=~ s+$&+ +x }$y=~m &ymum ~ my&



Just a little something to get into the Halloween spirit.

joecamel