#!/usr/bin/perl
use Data::Dumper;
my $addresses = '  foo@foo.com bar@bar.com,   foo@foobar.com
bar@foo.com , bar@foobar.com        ';
my @addresses = split /(?:\s|,)+/, $addresses;
print Dumper \@addresses;