use strict;

$_='4a757374a0416e6f74686572a05065726ca04861636b6572a00a';
;;$,=~s/9/a0/;while($_){;(($_)&&($;.='.chr(0x'.(substr($_,0,2)
='').$,.')'))||last;}substr($;,0,2)='';$_="print+'J'.$;";eval;;