Select Code to Download

use Text::CSV_XS;
use Data::Peek;
...
print DPeek, "\n" for $csv->fields;
$csv->parse (qq{"ab\nc\x{20ac}\x80",\r"\n});
$csv->error_diag;

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