Help for this page
/<a href="(mailto:)?([^"]*)">([^<"]*)<\/a>/g
$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.