#!/usr/bin/perl

$begin='banana';
$end='grape';

while(<DATA>) {
  /$begin/ ? eval { /$end/ ? last : print while (<DATA>) }
           : next
}
 
__DATA__
apple
banana
pear
peach
grape
prange