Help for this page

Select Code to Download

Select or download this

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

Select or download this

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