This is not very obfuscated but it sure was fun to write.

#!/usr/bin/perl -l
$_=$&;&_&&print;{s&&JAPH&;sub _{s&&Just another Perl hacker,&;$_}}
[download]