Help for this page

Select Code to Download

Select or download this

my @a = $str =~ /(aaaaa.*?)(?=aaaaa|$)/gs ;

Select or download this

my @a = $str =~ /aaaaa.*?(?=aaaaa|$)/gs ;