You might try stealing the code from Email::Valid, if you can't install it. Otherwise, you just need to consider what constitutes a "valid" email address format for the purposes of your application.

At the very least, I think you want to change the dots in your regex to \S.