while ($html =~ /<(\w+).*?>\b$WHATWANT{'term'}?s?\b.*?</\1>/gis) {
  my $tag = $1;
  $tag =~ tr/A-Z/a-z/;
  if ($tag eq 'title') {
  }
  elsif ($tag eq 'h1') {
#....
}

##</code><code>##

while ($html =~ /href=(['"]).*?$WHATWANT{'term'}'?s?.*?\1/gis) { $termshref++; } ## End while