my $x = 'jdoe@somewhere.com,bdoakes@nowhere.com';
my @list = split(/,/,$x); # /,/ specifies the delimiter