I highly recommend Email::Valid for this sort of thing (verifying the form of an email address against the published standards).