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