Select Code to Download

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

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