use strict;
use warnings;
{
local $/="";
<DATA> =~ /banana\n(.*)\ngrape\n/s;
print $1;
}

__DATA__
apple
banana
pear
peach
grape
orange