Here's my first Obfuscated Code, just quick and simple, something to throw in a .sig or something.

#!/usr/bin/perl -w use strict;
$_="P74117115116E32H65110111116104101114R32P80101114108L32H72P97X99107
+101114";
for(m{(.{3})}g){y$0-9$$cd;print chr($_);}print chr(((2+3)*(32-12)/4)-(
+3*4+3));
[download]

FouRPlaY
Learning Perl or Going To die() Trying