use Text::CSV;

my $file = "trace.csv";
my $file1 = "rgextract.txt";

open my $io, '<', $file or die "$file: $!";
open my $out, '>>', $file1 or die "$file1: $!";

my $csv = Text::CSV->new({ binary => 1, eol => $/ });
while (my $row = $csv->getline ($io)) {
	my $number = $row->[3];
	print $out "$number\n";
}

##</code><code>##

114
118
114
114