my $t0 = Benchmark->new;
        # build TOC
                 
        foreach my $h (split(/\n/, $page)) {
            if ($h =~ m/^={2,3}\s/) {
                push(@toc, $file."\t".$h);
            }
        }
        my $t1 = Benchmark->new;
        my $td = timediff($t1, $t0);
        print "the code took:",timestr($td),"\n";

##</code><code>##

        my $t0 = Benchmark->new;
        # build TOC
        push(@toc,
              map(m/^={2,3}\s/ ? $file."\t".$_ : (),
                   split(/\n/, $page) ) );  
        my $t1 = Benchmark->new;
        my $td = timediff($t1, $t0);
        print "the code took:",timestr($td),"\n";

##</code><code>##

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