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

##</code><code>##

use HTML::TagFilter;
my $dirty_text = ...; #something from input
my $tf = HTML::TagFilter->new();
$tf->deny_tags({
   img=> {all => []},
   a => {all => []},
});
my $clean_text = $tf->filter($dirty_text);