$cnt++ while $pos = 1 + index $str, 'AA', $pos;