Cross-posted at StackOverflow

You wrote:

my $csv = Text::CSV->new({
                sep_char => ",",
                binary => 1,
                auto_diag => 1 });
[download]

but your data has no commas in it. How do you expect that to work?