my first :( i just wanted to do something :) just simple eval and replacing... but i'm happy... only took my all of 5 minutes coz it sucks so much! ehehe

my$a="sub o{}_";
$a=~s/}_$/print}/;
print""if$a=~/}/; ($a,
my$aa)=split(/$&/,$a);$a.="\"";
$a.="o)o"x2; $a=~s/o\)o/o\)o_/;
$a=~s/\)/\(/;my$b="$a\\n\" x 1"
."".";;}";;eval($b);&o; __END__
###############################
###############################
[download]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i would slit my wrists for you