$Acount = tr/A//;