$NR_found = "0";
while (my $line = <IN>) {
    if ($line =~ /(NR \d{7})/) {
        $NR_found = $1;               # Treffer speichern
        last;                         # Schleife abbrechen
    }
}