$count++ while $string =~ /a(?=a)/g; # Using a lookahead assertion.