Occurence of character in string

[asylu3]

Code:

$str=" I am a dog in a black house";
@count=$str=~m/a/g;
print "Total Occurence of 'a' :",scalar(@count);



Output:

Total Occurence of 'a' : 4