$clean = HTML::FormatText->new->format(parse_html($html)) if ($html =~ m/<[^>]+>/);