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

4