I tried out Email::Valid, I like the results a lot more, than RFC::RFC822::Address

From the SYNOPSIS:

use Email::Valid;
print (Email::Valid->address('maurice@hevanet.com') ? 'yes' : 'no');
[download]

--
paul