#!/usr/bin/perl

$start_pattern = '<!-- start section-->';
$end_pattern = '<!-- end section -->';
@files_to_look_in = ("/path/to/files1.html", "/path/to/files2.html");

$write_line = 0;
while(@files_to_look_in)
{
	open(HTM_FILE, <$_);
	while(<HTM_FILE>)
	{
		if($_=~/$start_pattern/i)
		{
			$write_line = 1;
		}
		if($_=~/$end_pattern/i)
		{
			$write_line = 0;
		}
		if($write_line =~ '1')
		{
			print "$_\n";
		}
	}
}