Select Code to Download

my $s = 'fileCapaber';
my $count = () = $s =~ m[(a|b|c)]gi;
print $count;

4

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