You could use Email::Valid from CPAN.
See also How do I check a valid mail address?
In reply to Re: checking email syntax by kyle in thread checking email syntax by powerhouse