my @begin_blocks=split /BEGIN $name/,$string_containing_blocks;

my $block=$begin_blocks[1];

$block=~s/END\s*$//;