open(LISTE, "<$seite") || die "Datei mit Empfaengern nicht gefunden\n"; undef $\; $liste = ; #Liest die ganze Datei in den Skalar $liste =~ s/<_Variable1>/$text/g; #ersetzt alle <_Variable1>-Tags durch $text, die in $liste vorkommen print "Content-type: text/html\n\n"; print $liste;