open (Neuedatei, "768598389.html");
while ($a=<Neuedatei>)

$a=~ s/<font>(.*)<\/font>/$1/gs;