Not exactly a regular expression approach. Regexp::Common can be used for these.

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}/;
[download]