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

my $infile = "irgendwas.txt";
my $outfile = "out.txt";

# dateien oeffnen
unless (open (IN, "<", $infile)) {
  die "Error in opening '$infile': $!\n";
} # unless
unless (open (OUT, ">", $outfile)) {
  die "Error in opening '$outfile': $!\n";
} # unless

# in schleife Daten einlesen; $_ enthaelt jeweils eine Zeile
while (<IN>) {

  # wenn in der Zeile das Wort NOID vorkommt:
  if ($_ =~ /\bNOID\b/) { # oder kuerzer: if (/\bNOID\b/) {
    for my $i (1..4) { # werfe die folgenden vier zeilen weg
      my $dummy = <IN>;
    } # for
  } # if

  # sonst schreibe sie nach OUT
  else {
    print OUT $_;
  } # else

} # while

# dateien wieder schliessen
close(IN); close(OUT);