my ($file, $line, @fields);

foreach $file (@files) {
  open(FILE, $file) or die "Nya, nya: $!\n";
  while($line = <FILE>) {
     @fields = split('|', $line); 
     print OUTPUT join("|", @fields);
  } 
}