use strict;
#zu suchender String
#print "Was suchen?\n";
#my $string = <STDIN>;
#print "$string\n";
#print "Ab welcher Zeile schreiben?\n";
#my $lineNumber = <STDIN>;
my $lineNumber= 1;
# Verzeichnis öffnen und Anzahl *.txt zählen
print "test\n";
opendir(DIR,"Daten/alt/");
my @eintraege = readdir(DIR);
closedir(DIR);
my $anzahl = @eintraege;
# alle *.txt der Reihe nach öffnen...
my $n = 0;
for ($n = 2 ; $n < $anzahl + 1 ; $n++)
{
 my $filename = $eintraege[$n];
 my $count = 0;
print "$filename\n";
 open(DATEI2,">Daten/neu/$filename");
 open (DATEI,"<Daten/alt/$filename");
  while (<DATEI>)
 {
  next if ($_ =~ /XXXXXXXX/i);
  $count++;
  if ($count >$lineNumber)
    {
     print DATEI2 $_;
#     print "Schreibe: $_\n";
    }
 }
 close DATEI;
 close DATEI2;
}