Building on what Zaxo said about correct CSV quoting of double-quotes, you might as well filter the CSV-file before you process it with Text::CSV.
the following regex, using zero-width look-ahead/-behind assertions, works quite well (with one flaw):

(?<![,])"(?![,])
[download]

A little test:

#!/usr/bin/env perl
my $test = '""crosby"","stills","nash","and sometimes "young""';
$test =~ s/(?<![,])"(?![,])/""/g;
print $test, "\n";
$test = '"som"ething","sil"ly","quo"ted"';
$test =~ s/(?<![,])"(?![,])/""/g;
print $test, "\n";
__END__
""""crosby""","stills","nash","and sometimes ""young""""
""som""ething","sil""ly","quo""ted""
[download]

The flaw, as you might've already seen, is that the look-ahead/behind assertions recognize the start and end of the line as 'not comma', and therefore substitute the leading and the tailing double-quote too. If your data is otherwise well-formed, all you have to do, is add a second filter:

$test =~ s/^"(.*)"$/$1/g;
[download]

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.