Again, patently wrong. Please stop passing along the answers many of us know to be wrong. Please look at Email::Valid, and others.

You should follow your own advice!

-- Randal L. Schwartz, Perl hacker