my @f = ( "c:/perl/html/site/lib/Template.html", "c:/perl/html/site/lib/Template/Base.html", #... "c:/perl/html/site/lib/Template/Plugin/XML/Style.html", "c:/perl/html/site/lib/Template/Plugin/XML/XPath.html", ); open OUT, ">ref.html"; print OUT <<"HTML"; Template::Config - Factory module for instantiating other TT2 modules
 Template::Config - Factory module for instantiating other TT2 modules

HTML for my $f ( @f ) { #trigger $i=0; open IN, $f or die "$f: $!"; while ( ) { $i=1 if //; $i=0 if /

/; #tweak the NAME heading my $ff = $f; $ff =~ s/^.+Template/Template/; $ff =~ s/\.html//; $ff =~ s/\//::/g; s/

NAME<\/a><\/h1>/[[[PB!]]]$ff<\/h0>/; s/
//g; #tweak headings one step smaller s/(<\/?h)([0-9])(>)/$1.($2+1).$3/eg; print OUT $_ if $i; } } print OUT "";