use HTML::TagFilter;
my $dirty_text = ...; #something from input
my $tf = HTML::TagFilter->new();
$tf->allow_tags();
my $clean_text = $tf->filter($dirty_text);