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