in reply to Matching any Email Address

For the 75%- 95% match, try this 
m/\s*^<?[^@<>]+@[^@.<>]+(\.[^@.<>]+)+>?\s*$/

[download]
which is what CGI::Validate uses for validating email addresses

§ George Sherston

In Section Seekers of Perl Wisdom