Select Code to Download

($text) = $text =~ /<!-- END MAIN HEADER CODE -->(.*?)<!-- END BOTTOM 
+CHAPTER\/SECTION NAV CODE -->/s;

my $start = '<!-- END MAIN HEADER CODE -->';
my $end = '<!-- END BOTTOM CHAPTER/SECTION NAV CODE -->';

my $index = index($text, $start) + length($start);
$text = substr($text, $index, rindex($text, $end) - $index);