use Text::CSV_XS;
use Data::Peek;

my $csv = Text::CSV_XS->new ({ binary => 1 });
$csv->parse (qq{"ab\nc\x{20ac}\x80"});
print DPeek, "\n" for $csv->fields;
$csv->parse (qq{"ab\nc\x{20ac}\x80",\r"\n});
$csv->error_diag;

##</code><code>##

PV("ab\nc\342\202\254\302\200"\0) [UTF8 "ab\nc\x{20ac}\x{80}"]
# CSV_XS ERROR: 2031 - EIF - CR char is first char of field, not part of EOL