$count++ while $string =~ /A(?=A)/g;