my @in = <IN>;
      $NR_found = "0";                     # variable zurücksetzen
      foreach my $line (@in) {               # jede datei zeilenweise durchgehen
       if ($line =~ /(NR \d{7})/) {         # was sinnvollen gefunden?
          $NR_found = $1;                  # dann speichern
        }
      }                                 # alle zeilen durch?