Validation des adresses de courriel avec regex

Ian Dunn voulait créer une expression régulière permettant de distinguer les adresses de courriel valables. Le résultat n’est pas aussi simple qu’on pourrait l’espérer :

/^([\w\!\#$\%\&\'\*\+\-\/\=\?\^\`{\|\}\~]+\.)*[\w\!\#$\%\&\'\*\+\-\/\=\?\^\`{\|\}\~]+@((((([a-z0-9]{1}[a-z0-9\-]{0,62}[a-z0-9]{1})|[a-z])\.)+[a-z]{2,6})|(\d{1,3}\.){3}\d{1,3}(\:\d{1,5})?)$/i