my @records = split m/,/, $line, 10;
$records[-1] = qq["$records[-1]"];
print OUT join(',', @records), "\n";