my $csv = Text::CSV_XS->new(
    sep_char => "\t",
    escape_char => "\\",
    quote_char => undef );