From Programming Perl, p. 992:

"Just Another Perl Hacker," a clever but cryptic bit of Perl code that when executed, evaluates to that string. Often used to illustrate a particular Perl feature, and something of an ongoing Obfuscated Perl Contest seen in Usenix signatures.

If that be the case, I prefer something more confusing, but by no means the hit of perl obfuscation:

#!/usr/bin/perl -w
$_="a<j3 8]}9[ 1~2+ -62` 4,+,.j?23h`}|{qj46] #+.*,)";$h=H8;
y|!&#'%;@*().,$"^:\|{}[]+_\-?<~` a-z0-9|a0c6e8b12345d7f9|d;
$_=pack($h,$_);tr#U-ZA-T\#7^?2g(&p:#J-ZA-I#;$_.="\n";print;

Log in or register to write something here or to contact authors.