Occurence of character in string

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


Output:
[src]
Total Occurence of 'a' : 4
[/src]