map {if (/^".*"$/) {s/\s*"\s*//g; push @fields, $_;} else {push @fields, split /\s*,\s*/;}} split /,*("[^"]*"),*/, $line;