my $csv = Text::CSV_XS->new( { binary => 1 } );
my $status = $csv->parse($line);         # parse a CSV string into fields