Select Code to Download

my %japh = qw(J Just A Another P Perl H Hacker);
($_ = 'J A P H') =~ s/(\w)/$japh{$1}/g;
print;