aString := 'Now is the time for all good men to come to the aid of their blah blah blah'.

aString inject: 0

into: [:count :nextElement |

count + (nextElement asLowercase == $a ifTrue: [1] ifFalse: [0])]

"--> 5"