use Modern::Perl;
use Email::Address;

my $x         = 'jdoe@somewhere.com,bdoakes@nowhere.com';
my @addresses = Email::Address->parse($x);

say for @addresses;

##</code><code>##

jdoe@somewhere.com
bdoakes@nowhere.com