{
  local $/ = undef;
  my ($foundString) = ( <DATA> =~ /\bbanana\n(.*)\ngrape\n/s );
  print $foundString;
}

__DATA__
apple
banana
pear
peach
grape
orange