print 'Found: ', scalar( () = $s =~ m/($_)/ig), "'${_}'s\n" for qw[a b c]

Found:  2 'a's
Found:  1 'b's
Found:  1 'c's