http://www.perlmonks.org?node_id=961675


in reply to RegExp help

If you're not good at RegEx, I wouldn't suggest trying to parse email addresses with them. It's harder than it looks and you can get yourself into trouble using regular expressions like that.

Instead, try something like Email::Valid. From the docs for Email::Valid:

use Email::Valid; print (Email::Valid->address('me@example.com') ? 'yes' : 'no');

Cheers,

Brent

-- Yeah, I'm a Delt.