If your issue is "validating" in the sense of determining whether an email address found somewhere or supplied by some user is actually in use, Corion's advice covers the waterfront. Just because an address satisfies the relevant standards doesn't mean there is actually such an address.

OTOH, if your question is more about regexen, see "looking ahead" in perlretut.