while (my $line = <$fh>) {
      chomp($line);
      #last if $hit && $line =~ /^$/;
      last if $end_pos <= tell($fh);
      $hit = 1 if $line =~ /^\z/;
      push @fehler, $line if $hit;
   }