unless ($email =~ /\w+@\w+.\w+/) {
    print "Bad Email entry\n";
}