if ($_f->{name} =~ /email/ && ($value =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.) / || $value !~ /^.+\@(\[?)[a-zA-Z0-9\-\.]+\.([a-zA-Z]{2,3}|[0-9]{1,3})(\]?)$/)) { $_f->{errors} = "Invalid Email Address!"; $_errors++; }