patrones en perl para validar emails

El uso de expresiones regulares pudiera parecer pasado de moda para los inexpertos, pero si tenemos que hacer gestión de datos especificamente de mails  aveces una consulta SQL suele no ser la solucion mejor, por ello las expresiones regulares tienen su sitio.

el siguiente sitio http://fightingforalostcause.net/misc/2006/compare-email-regex.php  tiene la explicacion de la expresion regular que estoy usando a continuacion

if ($email_address =~ /^[-a-z0-9~!$%^&*_=+}{\'?]+(\.[-a-z0-9~!$%^&*_=+}{\'?]+)*@([a-z0-9_][-a-z0-9_]*(\.[-a-z0-9_]+)*\.(aero|arpa|biz|com|coop|edu|gov|info|int|mil|museum|name|net|org|pro|travel|mobi|[a-z][a-z])|([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}))(:[0-9]{1,5})?$/i)

 {

 #print "$email_address is valid<br>";

 }

 else

{

 print "$cont $email_address is invalido<br>"; 
$mailmalo++;

}

Si necesitan ayuda con emails y perl no duden en contactarme