proc strip-html-ignore {text {ignore {}}} {
    set c 0
    foreach i $ignore {if {[regexp $i $text]} {return $text}}
    return ""
}

proc strip-html {html} {
    regsub -all -- {<[^>]*>} $html "\[strip-html-ignore \[list &\] [list $ignore]\]" html
    set html [subst $html]
    return $html
}