#!/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;

##</code><code>##

$VAR1 = [
          '',
          'foo@foo.com',
          'bar@bar.com',
          'foo@foobar.com',
          'bar@foo.com',
          'bar@foobar.com'
        ];