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

  $fehler = join(' ', @fehler);
  $fehler =~ s/\s+/ /g;