Just a quick update... I didn't get around to fully exploring the link inman posted, but I did pick up a few tricks to obfuscate a little more. I also added a variable to the beginning which explains the output (which kinda un-obfuscates it, I guess, but it has style, IMO)

print$JustAnother{PerlHacker}=join(qq
qq=>(map(chr,(map(hex,(map($_="0x$_",(split/\ww\w/=>qq
Z4Agw0753w773jw4742w120xw641tw36E6w16Fmw174lw8681w065lw9726wH20bwQ50cw
+4658wz72Ww26CjwB20qwJ480w761owU63Ow56Bpw965Www72Z))))))));
[download]