if (ereg("^([0-9,a-z,A-Z,.,_,-]+)([@])([0-9,a-z,A-Z,_,-]+)([.])([a-z,A-Z]{2,3})([.][a-z,A-Z]{2,3})?$", $email)) {
	print "g1_certo\n";
}
else {
	print "g1_errado\n";
}