Select Code to Download

open my $io, "<", "test.csv";
open my $oh, ">", "out.csv";
...
    s{ ("[^""]+") }{ (my $one = $1) =~ tr{,}{-}; $one =~ tr{""}{}d; $o
+ne; }xge;
    print $oh $_;
    }