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.
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'"