Hi,
versuch mal
$eintrag =~ s/<body.*>//g;
Das mußt Du natürlich für alle verbotenen HTML-Befehle machen. Wenn Du nur einige wenige Befehle erlauben willst (z.B. <b>), dann versuche es so:
$eintrag =~ s/<b>/[b]/g; # <b> durch [b] ersetzen
$eintrag =~ s/</b>/[/b]/g; # dito für </b> (diese beiden Zeilen für alle erlaubten Befehle wiederholen)
$eintrag =~ s/<.*>//g; # alle HTML-Tags löschen
$eintrag =~ s/[/</g; # alle eckigen Klammern
$eintrag =~ s/]/>/g; # wieder zurückübersetzen
Hope it helps,
Cheatah