$_=q(vXvlrcYAGRKxl}mKnk|E[Nlf@beUE?~zOcOixyGxR~QHbFakKdCdNRNMvxdJudwanjuuU~FMLAalNl]xKrR{FKPCU}WynfhuNZmInLtCPEUp_pewMgf?fLJaKx?|kYiLhGs|SIIYuadPj|c);y/?-~/@-\x7f/;sub _{map{$L++%2?"":$_}@_}sub L{join('',_(@_))}@_=unpack("B*",$_)=~/..(...)(...)/g;$Y=L(@_);$L++;$_=L(@_);s/(.{7})/0\1/g;eval pack("B*",$_);pnirt(q(JAPH)) #