open my $io, "<", "test.csv";
open my $oh, ">", "out.csv";

while (<$io>) {
    s{ ("[^""]+") }{ (my $one = $1) =~ tr{,}{-}; $one =~ tr{""}{}d; $one; }xge;
    print $oh $_;
    }