I concur with all of the comments made hardburn above - Matching email addresses is a much more complex task than what most people realise. Generally however I lean towards the use of Email::Valid::Loose in place of Email::Valid as this allows for better matching as per RFC2822, which supercedes RFC 822, and permits the . (period) character in the local-part portion of the email address.
in reply to Re: RegEx for email help
in thread RegEx for email help
Additionally, depending upon your matching requirements, it may be worth modifying URI::Find to employ the regular expression from Email::Valid::Loose above ($Email::Valid::Loose::Addr_spec_re) to be employed for matching ($URI::scheme_re).
perl -le "print unpack'N', pack'B32', '00000000000000000000001010101011'"