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