while(...)
  chomp($line);
  $line = join '', grep { $i++ % 2 ? {s/,/ /g} : 1} split /"/,$line;
  @fields = split(/,/,$line);