Select Code to Download

1173|0040
1174|052425
...
1189|2002
1190|2002
1191|2002

000|20019|0040|No Definida.
000|20034|052425|No Definida.
...
210|20023|2002|SERGIO SUAREZ LLAMAS
210|72057|2002|SERGIO SUAREZ LLAMAS
210|67013|2002|SERGIO SUAREZ LLAMAS

foreach my $line (@fuente) {
my @parts = split /\|/, $line;
...
my @parts = split /\|/, $line;
print join("|", @parts[3]), "\n";
}