Select Code to Download

Select or download this
```
@list = split /(?=PATTERN)/;
```

my $pat = qr/^[ \t]*[^\s:]+:[ \t]*$/m;  # allow leading/trailing ws
my $pat = qr/^[^\s:]+:/m;

$_ = slurp_file;
my @stanzas = split /(?=$pat)/o;

Select or download this
```
@list = /( .*? PATTERN | .+ )/gsx;
```

Select or download this

my $pat = qr/(?:^[ \t]*\n)+(?:[ \t]+\z)?/m;

$_ = slurp_file;
my @list = /( .*? $pat | .+ )/ogsx;

Select or download this

my @list = split /^\s*(?:\n|\z)/m;
shift @list if @list && $list[0] eq "";  # remove empty first element

Select or download this

my $delim = qr/^[ \t]*SOMETHING[ \t]*$/m;
my $pat   = qr/$delim(?:\n[ \t]*)*(?:\n|\z)/o;

Select or download this

# Partition a string into paragraphs based on a 
# pattern which matches the beginning of a paragraph.
...
   }
   return $str =~ /(.*?(?:$pat)|.+)/gs;
}