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