# für jede Zeile
while (my $line = <$fh>) {
   # schneide das Newline ab   
  chomp($line);
   # beende die Schleife wenn $hit WAHR ist UND die Zeile leer ist
  last if $hit && $line =~ /^$/;
   # setze $hit auf WAHR wenn die Zeile leer ist
  $hit = 1 if $line =~ /^$/;
   # schiebe die Zeile in das Array wenn $hit WAHR ist
  push @fehler, $line if $hit;
}

# verbinde jedes Element aus dem Array @fehler mit einem Whitespace
$fehler = join(' ', @fehler);
# ersetze doppelte Whitespaces durch ein einfaches
$fehler =~ s/\s+/ /g;