I think this may be because your delimiter is actually comma-space, rather than just a comma as I was assuming, and which is the default of Text::CSV. So it sees those fields as beginning with a space and including a double quote, rather than quoted by a pair of double quotes between two commas. I tried changing the delimiter for the input file to comma -space, and it worked much better:

my $ic = Text::CSV->new({sep_char => ', '})                           
+   
        or die Text::CSV->error_diag();
[download]