unless ($email =~ /^[\w @.]/) { print "You entered your email incorrectly - please go back and check it
"; exit; }