map { my $t = $2 || $3; print "<$t\n"; } 
  m/('(.*?)'|([^']*?))($|,\s*)/g;