Seriously, don't roll your own regex for checking the validity of an e-mail address, it is *far* more complex than it looks (just check out the rfc). Just use a module to do the dirty work for you like Email::Valid.
HTH

_________
broquaint