#!/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