A Perl module has a long regular expression based on the standard description of an email address. It's so long (nearly 6,500 characters!) that I won't include it here. Upside: It's complete.