my $CSV = Text::CSV_XS->new ({binary => 1, escape_char => "\\"});     # need binary and change escape character
    if ($CSV->parse($line_to_split))