$_=q+(n J)->m()if!map{eval substr(q.#5'$43:t.^$^,$-,1<<3).$_.';'.(' !
&o;/=8*# /9c&<62;-'^$^x2).q.sub m{shift;..(/J/?q.print.:'$".')."'".{A
=>another=>H=>'hacker,'=>J=>Just=>P=>Perl=>}->{$_}."'.".(/^H/?($;=$_)
&&'$/}':($.=qq=(n $;)->m()}=)&&($;=$_)&&$.)}qw(H P A J)+,s,$/,,,eval,