foreach my $h (split(/\n/, $page)) {
            if (substr($h,0,3) eq '== ' 
                 or substr($h,0,4) eq '=== ') {
                push(@toc, $file."\t".$h);
            }
        }