Normalize CSV (read & write)

fix_csv.pl

#!/usr/bin/env perl 

use strict; use warnings;
use Data::Dump qw/dump/;
use feature qw/say/;

use Text::CSV::Auto;
use Text::CSV::Auto::ExportTo::CSV;
 
my $in = shift or die "Usage: $0 input.csv";
my $auto = Text::CSV::Auto->new($in);

my $exporter = Text::CSV::Auto::ExportTo::CSV->new(
    auto            => $auto,
    file            => "$in.fixed",
    csv_options     => {
        quote_char      => '"',
        always_quote    => 1,
        sep_char        => ',',
    },  
);
$exporter->export();