#!/usr/bin/perl
use strict;
use warnings;

my $EingabeDatei = 'datei_alt.txt';
my $AusgabeDatei = 'datei_neu.txt';

open (IN,  '<', $EingabeDatei) or die "Kann $EingabeDatei nicht oeffnen: $!";
open (OUT, '>', $AusgabeDatei) or die "Kann $AusgabeDatei nicht oeffnen: $!";

my $count = 0;       # Anzahl zu loeschender Zeilen
while (<IN>) {
    if (/NOID/) {
        $count = 4;    # 3 Zeilen + diese sollen nicht ausgegeben werden
    }
    if ($count == 0) {
        print OUT;    # Zeile nach OUT ausgeben
    } else {
        --$count;    # eins weniger
    }
}