#!perl

use strict;
use warnings;

use Text::CSV_XS;

my $dat_file = <<EOF;
\x{feff}\x{fe}Row1Col1\x{fe}\x{14}\x{fe}Row1Col2\x{fe}\x{14}\x{fe}Row1Col3\x{fe}
Row2Col1\x{14}Row2Col2\x{14}Row2Col3
Row3Col1\x{14}\x{fe}Row3Col2\x{fe}\x{14}\x{fe}R\x{14}ow3Col3\x{fe}
\x{fe}Row4Col1\x{fe}\x{14}Row4Col2\x{14}\x{fe}Row4C\x{fe}\x{fe}ol3\x{fe}
Row5Col1\x{14}Row5Col2\x{14}\x{fe}Row5\nCol3\x{fe}
EOF

my $dat = Text::CSV_XS->new({
    sep_char       => "\x{14}",
    quote_char     => "\x{fe}",
    escape_char    => "\x{fe}",
    eol            => $/,
    binary         => 1,
    keep_meta_info => 1,
    auto_diag      => 1,
});

open my $dat_fh, '<:encoding(UTF-8)', \$dat_file;

binmode STDOUT, ':encoding(UTF-8)';

while (my $row = $dat->getline($dat_fh)) {
    my $r = $.;

    for my $c (1 .. @$row) {
        my $is_quoted = $dat->is_quoted($c - 1)
                      ? 'Is Quoted'
                      : 'Is Not Quoted';

        print "Row $r, Col $c $is_quoted:  $row->[$c - 1]\n";
    }
}

$dat->eof() or $dat->error_diag();

close $dat_fh;

exit 0;