obfuscated
kilinrax
<!-- edited by chipmunk: removed spaces from end of lines; kept code from working properly -->
<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
</code>
<p><small><b>Edit</b>: chipmunk 2001-05-23</small></p>