#!/usr/bin/perl

use strict;
use warnings;

while (split(/[, ]+/, <DATA>))
{
  chomp;
  print "'$_'\n";
}

__DATA__
me@here.com
those@there.com  others@there.com
you@there.com,them@there.com

##</code><code>##

Use of uninitialized value $_ in scalar chomp at ./pm11137286.pl line 8, <DATA> line 1.
Use of uninitialized value $_ in concatenation (.) or string at ./pm11137286.pl line 9, <DATA> line 1.
''
Use of uninitialized value $_ in scalar chomp at ./pm11137286.pl line 8, <DATA> line 2.
Use of uninitialized value $_ in concatenation (.) or string at ./pm11137286.pl line 9, <DATA> line 2.
''
Use of uninitialized value $_ in scalar chomp at ./pm11137286.pl line 8, <DATA> line 3.
Use of uninitialized value $_ in concatenation (.) or string at ./pm11137286.pl line 9, <DATA> line 3.
''
Use of uninitialized value in split at ./pm11137286.pl line 9, <DATA> line 3.


##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

for (map { split /[, ]+/ } <DATA>)
{
  chomp;
  print "'$_'\n";
}

__DATA__
me@here.com
those@there.com  others@there.com
you@there.com,them@there.com