use HTML::TokeParser::Simple 2.1;
my $parser = HTML::TokeParser::Simple->new($html_file);
my $new HTML = '';
while (defined(my $token = $parser->get_token)) {
next if $token->is_tag('a'); # strip anchor tags
if ($token->is_start_tag('font')) {
$token->set_attr('size' 7);
}
if ($token->is_tag('img')) {
$token->delete_attr('alt');
}
$html .= $token->as_is;
}
open HTML, ">", $new_html_doc or die "Cannot open ($new_html_doc) for writing: $!";
print HTML $html;
close HTML;
####
# before
# after