#!/usr/bin/perl -w
use strict;

my $test='A <a@bob.com>, B <B@b.org>, Calcutta <O@thehorror.net>';

my @names = split /\s?,\s?/, $test;   #split apart
$_ = [split /\s(?=<)/, $_] for (@names); #make array refs of each
# Above happily learned from merlyn
foreach my $name (@names) {
        foreach (@{$name}){
                print "--$_--";
        }
        print "\n";
}

##</code><code>##

--A----<a@bob.com>--
--B----<B@b.org>--
--Calcutta----<O@thehorror.net>--

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $test='A <a@bob.com>, B <B@b.org>, Calcutta <O@thehorror.net>';

my %names = split /,\s|\s(?=<)/, $test;   #split apart

foreach my $name (keys (%names)) {
        print "$name==$names{$name}\n";
}

##</code><code>##

my @names;
while (my ($key, $value) = each %names){
        push @names, "$key $value";
}
print join ', ',@names;