FirstCase[
Import["https://reference.wolfram.com/legacy/v7/ref/HeavisideTheta.\
html",
{"HTML", "XMLObject"}
],
XMLElement["title", _, {t_}] |
XMLElement["meta", {___, "title" -> t_, ___}, _] :> t,
$Failed,
\[Infinity]
]
"HeavisideTheta - Wolfram Mathematica 7 Documentation"
FirstCase[
Import["https://reference.wolfram.com/legacy/v8/ref/HeavisideTheta.\
html",
{"HTML", "XMLObject"}
],
XMLElement["title", _, {t_}] |
XMLElement["meta", {___, "title" -> t_, ___}, _] :> t,
$Failed,