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