sub strip_html {
my $renew = "";
my $p = HTML::TokeParser::Simple->new(\$_[0]);
no warnings "uninitialized";
while ( my $token = $p->get_token ) {
next if ! $token->is_text
and
exists $HTML::Tagset::isKnown{ $token->get_tag };
$renew .= $token->as_is;
}
$_[0] = $renew;
}