$_ = q(fileCapaber);
my $count = ($_ =~ y/abcABC/abcABC/);
print $count;