As has already been pointed out,
Email::Valid is what you want. If you
really want to just use a regex, check out
Jeffrey Fridel's example from his book,
Mastering Regular Expresssions. (The
second edition is out too, but I don't know if it includes the
example.)