my $count =()= 'AAAAA' =~ /AAAA/g;
print "Found $count instances\n"