Select Code to Download

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

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