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

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