ändere das:
while (<OLDFILE>)
{
$Satz = $_;
chomp($Satz);
@Ergebnis = split(/<BR><BR>/, $Satz);
print NEWFILE $Ergebnis[0];
}
in:
$Satz = "";
while (<OLDFILE>)
{
chomp($Satz);
$Satz .= $_;
}
@Ergebnis = split(/<BR><BR>/, $Satz);
print NEWFILE $Ergebnis[0];