$/ = '</h1>';
      my $chunk = <HTMFILE>;
      $chunk =~ m%<title>(.+)</title>.*<h1>(.+)</h1>%i;