isValidMailaddr.pl

$d3     = '\d{1,3}';
$ip     = join('\.', ($d3) x 4);
$ascii  = '[\x01-\x7F]';
$domain = '([-a-z0-9]+\.)*[a-z]+';
$mailre = "^$ascii+\@($domain|\\[$ip\\])$";

# $mailre = '^[\x01-\x7F]+@(([-a-z0-9]+\.)*[a-z]+|\[\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])';

/$mailre/oi || print "error\n";