#!/usr/bin/perl

use strict;
use warnings;

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

while(<DATA>) {
  /$begin/ ? eval { /$end/ ? goto END : print while (<DATA>) }
           : next
}

END:
exit;

__DATA__
apple
banana
pear
peach
grape
orange