my $c = () = $string =~ m/(?=aa)/g;
say $c;