Help for this page

Select Code to Download


  1. or download this
    my @begin_blocks=split /BEGIN $name/,$string_containing_blocks;

my $block=$begin_blocks[1];

$block=~s/END\s*$//;
  2. or download this
    my @begin_blocks=split /BEGIN $name/,$string_containing_blocks;

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

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