HTML-Tags entfernen mittels RegExp?

[Beat]

gehts gehts nicht?
Hab' die Filter in der Eile falsch angeschrieben
hast es vielleicht bemerkt.
mfg Beat

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