$ perl -e 'print "valid\n" if ("foo\@bar" =~ m/^[a-zA-Z_\-.0-9]+@[a-zA-Z_\-.0-9]+$/);'
valid
$ perl -e 'print "valid\n" if ("j.random.hacker\@perlmonks.com" =~ m/^[a-zA-Z_\-.0-9]+@[a-zA-Z_\-.0-9]+$/);'