HTML-Tags entfernen mittels RegExp?

[Beat]

hy Jörg

Folgender Code ist von Tom Christianson und entfernt HTML Tags (verschachtelte über mehrere Zeilen)
sowie SSI Tags

$body =~ s{ <! (.*?) ( -- .*? -- \s* )+ (.*?) > }{ if ($1 || $3) { "<!$1 $3>"; } }gesx; #HTML
 $body =~ s{ < (?: [^>'"] * | ".*?" | '.*?' ) + > }{}gsx; #SSI

mfg Beat