in reply to pattern match
Or you could use Email::Find - "Find RFC 822 email addresses in plain text"