use Email::Address;
print $_->address,"\n"
        for Email::Address->parse(
                'My Name email@example1.com '.
                'My name <email@example2.com>');
__END__
email@example1.com
email@example2.com