while(my $token = $parser->get_token) {
    $token->del_attr('font') if $token->is_start_tag;
    print $token->as_is;
}