my $csv = Text::CSV->new({binary => 1, decode_utf8 => 1, auto_diag => 1,  allow_loose_quotes => 1, allow_loose_escapes => 1});