Help for this page

Select Code to Download

Select or download this

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

Select or download this

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