print$JustAnother{PerlHacker}=join(qq
qq=>(map(chr,(map(hex,(map($_="0x$_",(split/\ww\w/=>qq
Z4Agw0753w773jw4742w120xw641tw36E6w16Fmw174lw8681w065lw9726wH20bwQ50cw4658wz72Ww26CjwB20qwJ480w761owU63Ow56Bpw965Www72Z))))))));