Select Code to Download

    body:
        +all_pages
...

    all_pages:
        s/::PAGENUM::/$page_number/eg;

    my $page_engine = make_regex_engine_from_spec( $spec_fh );
    my $page_number = 1;
...
        print $page_engine->( @$page{'content','page_type'} ), "\n";
        $page_number++;
    }

    sub make_regex_engine_from_spec
    {
...
        }
    }

my @book_pages = (

...
   { page_type => 'index', 
     content   => "This an index page (::PAGENUM::).\n" },
);

    This is the copyright page (i).
    Copyright 2004 blah, blah
...

    This an index page (3).

#!/usr/bin/perl

...

all_pages:
    s/::PAGENUM::/$page_number/eg;