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') {
#....
}