Код: Выделить всё
$email1 = 'somebody@something.com';
$email2 = 'somebody@something.com (Some Body)';
$pattern = '^[-a-z_.]{2,20}\@[-a-z_.]{2,20}\.[-a-z_.]{2,20}( \(.*\))?$';
if ( $email1 =~ $pattern )
{
print "1 is an e-mail!\n";
}
if ( $email2 =~ $pattern )
{
print "2 is an e-mail!\n";
}