while ("AAAA" =~ /A(A+)/g) {
   $count += length($1);
}