#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;


my $file = "fielded.txt";

my $csv = Text::CSV->new({sep_char => "\t"});     # create a new object
open my $fh, "<", $file or die "Unable to open $file: $!";

while (my $data_ref = $csv->getline($fh)) {
    my @data = @{$data_ref};
    if ($data[0] eq "'EOU'.") {
        # End of record code
    } elsif ($data[2] eq "u") {
        print "\n$data[3]"
    } elsif ($data[2] eq "p") {
        print "$data[3]\n"
    } else {
        #die "Unexpected line format encountered, $file, @data";
    }
}
close $fh;