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');
[download]

Cheers,

Brent