$str =~ /^[^@]+@[^.]+\.[^.]/