Select Code to Download

Select or download this

#!/usr/bin/env perl

...
    s/[\037]+$//;
    print $tff_fh $_; 
}

Select or download this

#!/usr/bin/env perl

...
my $re = qr{ " (?<field> [^"]* ) " | (?<field> [^,]* ) }x;

print $tff_fh $_ for map { chomp; s/$re,/$+{field}\037/g; $_ } <$csv_f
+h>;

Select or download this

$ perl -pe 'y/\036\037/\012|/' pm_1080161_output.tff
Country|Name|Address|Age
...
Czech Republic|Briar, Larissa, Sybil, Colin|29565|88
Japan|Wyatt, Gavin, Derek, Coby|10734|52
Gabon|Tobias, Maya, April, Quintessa|77397|95

Select or download this

Jersey|Reece, Clarke, Idona, Troy|85473|73
Finland|Paul, Quamar, Leigh, Adara|09441|66
...
Antarctica|Iliana, Octavius, Serena, Guinevere|57025|10
Micronesia|Alexander, Angela, Wylie, Axel|19982|82
Bangladesh|Claire, Laura, Phillip, Pascale|70016|5