1173|0040
1174|052425
1175|052634
1176|053281
1177|055876
1188|2222
1189|2002
1190|2002
1191|2002

##</code><code>##

000|20019|0040|No Definida.
000|20034|052425|No Definida.
000|20014|052634|No Definida.
000|20031|053281|No Definida.
000|20044|055876|No Definida.
000|67022|2000|No Definida.
000|67022|2000|No Definida.
000|00019|2000|No Definida.
000|67024|2000|No Definida.
210|72059|2002|SERGIO SUAREZ LLAMAS
210|72059|2002|SERGIO SUAREZ LLAMAS
210|72059|2002|SERGIO SUAREZ LLAMAS
210|20023|2002|SERGIO SUAREZ LLAMAS
210|72057|2002|SERGIO SUAREZ LLAMAS
210|67013|2002|SERGIO SUAREZ LLAMAS

##</code><code>##

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