title: perl Text::CSV_XS removes all escape_chars
body: <p>I had moved from Text::CSV to the XS version because of a problem of newline inside data
  <a href="https://stackoverflow.com/questions/18485762/textcsv-parsing-when-data-contains-newline">Text::CSV parsing when data contains newline</a></p>
  
  <p>Text::CSV_XS removes all the escape chars in the data 
  ( I am using linux with perl 5.8.8 ) 
  This is the sample code (below)</p>
  
  <p>I expect that the attribute on the 3 row should be \N after escaping 1 \ but Text::CSV_XS removes both the \</p>
  
  <pre><code>use strict;
  use warnings;
  use Text::CSV_XS;
  
  my $csv = Text::CSV_XS-&gt;new({
      binary =&gt; 1,
      eol =&gt; "\n",
      quote_char =&gt; '"',
      escape_char =&gt; '\\',
      auto_diag =&gt; 2,
      allow_loose_escapes =&gt; 1,
  }) or die "Can't create CSV parser";
  
  while( my $row = $csv-&gt;getline(\*DATA) ) {
      print join(" ",@{$row})."\n";
  }
  
  __DATA__
  ata,atb,atc
  1a,"1b                                                                                                                                         
  1b-continued",1c
  \\N,2b,2c
  </code></pre>
  
  <p>This is the output</p>
  
  <pre><code>ata atb atc
  1a 1b
  1b-continued 1c
  N 2b 2c
  </code></pre>