The Project Gutenberg Etext of <etext title> 
   by <etext author>

   Copyright (c) <copyright holder>

   **This is a COPYRIGHTED Project Gutenberg Etext, 
   Details Below**

   <Project Gutenberg Header>

   ... # Gutenberg Copyright information 

   <known range of delimiting text>

   <actual body of etext>

   ... # etext body/document/book is here
   
   End of the Project Gutenberg Etext of <etext title>
   by <etext author>
   Copyright (c) <copyright holder>


##</code><code>##

   my $pg_author  = "<etext author>";
   my $pg_title   = "<etext title>";
   my @pg_header  = "<Project Gutenberg Header>";
   my @etext_body = "<actual body of etext>";
   my @pg_footer  = "<Project Gutenberg Footer>";

##</code><code>##

   use strict;
   use CGI qw(:standard);
   use Text::Autoformat;

   my $file      = "pg_exext.txt";
   open(PGW, "<$file") or die $!;
   local $/      = undef; 
   my $data      = <PGW>;

   my $formatted = autoformat $data, {justify =>'full', 
                                      left    => 4, 
                                      right   => 55, 
                                      all     => 1};
   print pre("$formatted");
   my $data =~ m/End of Project Gutenberg Etext (.*)/s;