Another attempt...

CSV is a fairly loose term, everybody thinks differently about it.

Most CSV dialekts use quotes to mark fields that may contain commas. But you always have to check that the tools that read the data actually do it in the same way.

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