Email addresses can actually get pretty complex. I recommend you use a module like Email::Address:

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
[download]