http://qs1969.pair.com?node_id=109699

Alright, I know this sounds stupid, but I can't find out where to edit my signature because it's not in user settings...

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