while (<DATA>) {
      next unless my $count = ?start?../end/;
      next if $count == 1;
      print;
}