while ( <DATA> ) {
    print join "\n", split /(?:\s+,?\s*|,\s*)/, $_;
    print "\n";
}
__DATA__
  foo@foo.com bar@bar.com,   foo@foobar.com
bar@foo.com , bar@foobar.com