$email =~ /^\w+@\w+\.\w+$/