Here is my first try at writing obfuscated code. I figured that I would start with the obligatory JAPH Signature.
Feedback is appreciated
#!/usr/bin/perl
$_='substr($_,1) = $@; {{ $_="another.";push}$_ ="hacker ";push; }; $b="perl";'
.'push @_,$b;$c=".just"; push @_,$c; @a=&japh(@_);y/./ /;@_ =push;$st= join".'
.'",@_;for $a,(@a){print"$a"}sub japh{foreach$a(@a){ push@rv,$a} }@rv=map{ord($'
.'_)} @a;}';$_=join'',map chr,map{abs(22-$_)+96}map length,split/ /;y/v/ /;print
Mike