http://qs321.pair.com?node_id=360871

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi there Monks, I am doing a simple e-mail validation to make sure the user doesn't leave the filed blank and that the email address have at least the basic information on it. But I know that some thing in my code is not working well. Here is the piece I am talking about it and maybe someone will have a better solution for a simple e-mail validation check:
unless ($email =~ /^[\w @.]/) { print "You entered your email incorrectly - please go back and check i +t<br>"; exit; }

Thanks for the feed back.