Select Code to Download

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

my $block=$begin_blocks[1];

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

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

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

$block=~s/BEGIN_/BEGIN/g;