http://www.perlmonks.org?node_id=103992


in reply to Monk Node Wars

I would rather have something more related to Perl so that it would help the community more. 

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[download]

In Section Perl Monks Discussion