http://www.perlmonks.org?node_id=43398


in reply to Extracting a list of email addresses from a mail header

Use the CPAN Email::Find module for that.