while (<RLS>)
{
    $csv = Text::CSV->new (
            { allow_loose_quotes     => 1 ,
              escape_char            => "\\",
              binary                 => 1, 
            }
         ) or die "" . Text::CSV->error_diag ();
        next if ($. == 1);
        if ($csv->parse ($_)) {

##</code><code>##

my $csv = Text::CSV_XS->new ({
    binary             => 1,
    escape_char        => "\\",
    allow_loose_quotes => 1,
    auto_diag          => 1,
    });
open my $fh, "<:encoding(utf-8)", "text.csv" or die "text.csv: $!";
$csv->getline ($fh); # skip first line
while (my $row = $csv->getline ($fh)) {
    my ($tri, $chem, $year, $lbs, $gms) = 
        map { undiacritic ($_) } @{$row}[0,2,4,5,6];
    :
    :
    }
close $fh;