use strict;
use warnings;
use utf8;

use Text::CSV;
my $io = \*DATA;
my $csv = Text::CSV->new ({ binary => 1 });
while (my $row = $csv->getline($io)) {
        print $row->[1], "\n";
}

__DATA__
33,44,55,"ABC"
234.33,"ABC ""DEFGHIJ"" KLMNOP","asdfasd asdfasdfasdf "

##</code><code>##

44
ABC "DEFGHIJ" KLMNOP