my $re = qr/^$start.*$end$/;
while (<FH>)
{
  print C $_ if m/$re/;
}