while ($html =~ /\b$WHATWANT{'term'}'?s?\b/gis) { $termstotal++; } ## End while while ($html =~ /.*?\b$WHATWANT{'term'}'?s?\b.*?<\/body>/gis) { $termsbody++; } ## End while while ($html =~ /.*?\b$WHATWANT{'term'}'?s?\b.*?<\/title>/gis) { $termstitle++; } ## End while while ($html =~ /<h1.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h1>/gis) { $termshead1++; } ## End while while ($html =~ /<h2.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h2>/gis) { $termshead2++; } ## End while while ($html =~ /<h3.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h3>/gis) { $termshead3++; } ## End while while ($html =~ /<h4.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h4>/gis) { $termshead4++; } ## End while while ($html =~ /<h5.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h5>/gis) { $termshead5++; } ## End while while ($html =~ /<h6.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/h6>/gis) { $termshead6++; } ## End while while ($html =~ /alt=\".*?\b$WHATWANT{'term'}'?s?\b.*?\"/gis) { $termsalt++; } ## End while while ($html =~ /alt=\'.*?\b$WHATWANT{'term'}'?s?\b.*?\'/gis) { $termsalt++; } ## End while while ($html =~ /<a .*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/a>/gis) { $termsa++; } ## End while while ($html =~ /<\!--.*?\b$WHATWANT{'term'}'?s?\b.*?-->/gis) { $termscomment++; } ## End while while ($html =~ /<li.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/li>/gis) { $termsbullet++; } ## End while while ($html =~ /href=\".*?$WHATWANT{'term'}'?s?.*?\"/gis) { $termshref++; } ## End while while ($html =~ /href=\'.*?$WHATWANT{'term'}'?s?.*?\'/gis) { $termshref++; } ## End while while ($html =~ /<p.*?>.*?\b$WHATWANT{'term'}'?s?\b.*?<\/p>/gis) { $termsp++; } ## End while