#!/usr/bin/perl -wT
use strict;

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

while(<DATA>) {
  /^$begin$/ && do { /^$end$/ ? last : print while (<DATA>) }
}

__DATA__
apple
banana
pear
peach
grape
orange