my @clean = map clean_html($_), @dirty;

##</code><code>##

sub clean_html {
    my ($html) = @_;
    state $hs = HTML::Strip->new();
    my $clean = $hs->parse($html);
    $clean =~ s/^\s+|\s+$//g;
    return $clean;
}