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).