use Data::Dump 'pp';
use Text::CSV;
my $csv = Text::CSV->new ( { binary => 1 } )
	or die "Cannot use CSV: ".Text::CSV->error_diag ();
open my $fh, "<:encoding(utf8)", "Text_File.csv" or die $!;
while ( my $row = $csv->getline($fh) ) {
	my @vals = split /,/, $row->[2];
	pp $row, @vals;
}
$csv->eof or $csv->error_diag();
close $fh;

__END__

([" NPLUS", 32, 0, ""], 0)
(["NW", 41, 0, 1], 0)
(["NWER", 51, "0,1,2", "12 "], 0, 1, 2)