in reply to A call for a new breed of obfuscation

Here is an easy one: 
$japh="Just Another Perl Hacker";
$a='s/.*/$a/';
$japh=~s/.*/$a/;
print $japh;

[download]

In Section Obfuscated Code