use HTML::TagFilter;
my $tf = new HTML::TagFilter;
...
$tf->allow_tags({});
my $text = $tf->filter($html);