Perl cgi module

[папа Карло]

что-то типа того....

Код: Выделить всё

$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";
}