computer/programs/useless/japh/japh_5

%==(q<=>=>q=+==>q->-=>q=-=)=>$ _=
q-=4a=2b>2=1>54=41=d=1=5>c>3=d>52
=30=15=d>6>4c=28=19=2=8>6=d>68-=>
$^=q=print(chr($-==>=>s<(.)(\w+)>
[$^$={$1}=hex(qq=$2=)))=>]g=>eval

This Perl program prints
"Just another Perl Hacker".
(More about JAPHs.)

Download the source.