$_ = "AAAABAAAA";
while (/AAA/g) { ...