$_=q+juzecsthaghyzrkiererzkntoapl+;$a=$|+
0xc0ff33-(0xf847*0xc7);sub a{%h=map{$a**
$_%qq;${a}9;=>$_}($|..qq.${a}7.);@_=values
%h;splice@_,$|,$a.(0xc0de/2/13/211/3+$a)
;}@_=unpack(qq)C*),$_);map{$_=chr$_[$_]
;s}z}\040};s!y!\012!;print;}a(m;japh\););