use Mail::Address;
my $raw = 'My Name <email@example.com>';
my @addresses = Mail::Address->parse($raw);
print $_->address, $/ for @addresses;