This is my first attempt as obfuscation, so it's simple, but I gotta start somewhere.

@a=split//,'73101';push@a,45;$c=ord('Z');foreach$b(@a){print chr($c-=$
+b);};
[download]