Select Code to Download

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

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