my $count = "fileCapaber" =~ tr/AaBbCc//;
print "Count is $count\n";