my @saetze = split /([.,:;?!])/,$normalText;

{ # hier beginnt der lokale Code-Block
  my @temp;
  while (scalar @saetze) { # solange noch was im Array
    my $satz = shift @saetze;    # hole Satz
    my $sz = shift @saetze;      # hole Satzzeichen
    $satz .= $sz if defined $sz; # füge beide zusammen
    push @temp, $satz;           # zwischenspeichern
  }
  @saetze = @temp;  # zusammengefügtes wieder in Sätze-Array zurückspeichern 
} # Ende des lokalen Blocks