# if START and END occur only once, we could lock it with m??

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