#!/usr/bin/perl -w use strict; $\=$/;$_=q&&;s()/#?=>$":}\~>\\!;/;$/=~s~ ~s{;};$")!{$"\\:<_!;~e;y{%*-.$'&(#-<}$@-~$s;{y(;-?)= r-{)!=s;y$T-_$`-|$;y}{-~}l-\}};s{!}$Y<$g&&redo}print
Edit: chipmunk 2001-05-23
Back to
Obfuscated Code
#!/usr/bin/perl -w use strict; $\=$/;$_=q&&;s()/#?=>$":}\~>\\!;/;$/=~s~ ~s{;};$")!{$"\\:<_!;~e;y{%*-.$'&(#-<}$@-~$s;{y(;-?)= r-{)!=s;y$T-_$`-|$;y}{-~}l-\}};s{!}$Y<$g&&redo}print
Edit: chipmunk 2001-05-23