while("AAAA" =~ /(?=AA)/g){
  $count++;
}