Help for this page

Select Code to Download

Select or download this

while ( <DATA> ) {
    push @addrs, split /(?:\s+,?\s*|,\s*)/, $_;
...
__DATA__
  foo@foo.com bar@bar.com,   foo@foobar.com
bar@foo.com , bar@foobar.com

Select or download this

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