use strict;
use warnings;
use Regexp::Common;

my $string = '
=begin
a
bc
d
=end
';

print $1 if $string=~/$RE{balanced}{-begin => "=begin"}{-end => "end"}{-keep}/;