Exiting eval via last at line 8, <DATA> line 5.

##</code><code>##

#!/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

##</code><code>##

__DATA__
banana
pear
peach
grape
orange
banana
cow
pig
grape