open my $out, '>', $file_out or die $!;

for my $dateiname_s (@files) {
   my $counter = 0;

   open my $in, '<', $dateiname_s or do {
      warn "Kann $dateiname_s nicht oeffnen: $!";
      next; # ab zur naechsten Datei
   }

   while (my $line = <$in>){
      ++$counter;
      chomp($line);
      next unless length($line) == 78 && $line =~ /^[0-9]{4}/;
      print $out "$dateiname_s $counter $line\n"
         unless ord(substr($line,0,1) == 26;
   }

   close $in;
}

close $out;