my $data = join '', <DATA>;
$data =~ s/,/ /g;
my @addresses = $data =~ /(\S+)/g;

print join "\n", @addresses;

__DATA__
  foo@foo.com bar@bar.com,   foo@foobar.com 
bar@foo.com , bar@foobar.com