while ('AAAA' =~ /A(?=A)/g) { $count++; }