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