sub parseCSVrow {
  my ($row, $fdelim, $tdelim) = @_;
  chomp($row);
  my @ret = split(/$fdelim/,$row);
  my $i = 0;
  while($i < @ret) {
    if (($ret[$i] =~ s/$tdelim/$tdelim/ge) % 2) {
      if ($i + 1 == @ret) {
        die "ERROR: not ending text";
      } else {
        $ret[$i] = $ret[$i].$fdelim.$ret[$i+1];
        splice(@ret,$i+1,1);
      }
    } else {
      $i++;
    }
  }
  return \@ret;  
}