Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use strict;
...
my @a = $str =~ /(aaaaa.*?)(?=aaaaa|$)/gs ;

print join "\n", @a;

Select or download this
```
aaaaa
bbbbb
...
aaaaa
ddddd
eeeee
```