Select Code to Download

use HTML::Tidy

...

    return $html;
}

sub _is_html_clean {
    # create state variable contain hash of unbalanced tags
...
}