$string ='
some another lines
=begin
some lines
some lines
=end
some another lines...';

while ($string =~ /(?:(?:^|\n)=begin)((?:(?!\n=end).)*)\n=end/gs){
	
	print "$1\n";
	
}

output:
=======

some lines
some lines