my $startre = qr/^$start/;
my $endre   = qr/$end$/;
while (<FH>)
{
  print C $_ if m/$startre/ and m/$endre/;
}