Select Code to Download

my $csv = Text::CSV_XS->new ({
    sep_char    => "\x{14}",
...
    tr/\x{ae}/\n/ for @$row;
    # continue as usual
    }