$_ = '<A class=Member href="mailto:pluton_pluton@yahoo.fr">';
$_ = '<A class=Title>';
 
if (/^.*(?:mailto:)([^>]*)?"?>.*$/) {print "MATCH - ($1)";}
else {print "DONT MATCH";}