Let't check mail address simply using Perl regular expression.
if ($mail =~ /^.+\@.+$/a) {
}
This means $mail is
[one more ASCII]@[one more ASCII]
Improvement
ASCII graphic characters are a little better.
/^\p{PosixGraph}+\@\p{PosixGraph}+$/