in reply to A call for a new breed of obfuscation

And another easy one (I figured I better get them out of the way). 
$japh="Just Another Perl Hacker";
$japh=~s/Just Another Perl Hacker/seek (DATA,$^Oeq"MSWin32"?42:41,0);s
+printf <DATA>;/e
;print $japh;
__DATA__

[download]

In Section Obfuscated Code