Actually, you don't need a regular expression for this... use tr instead.

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

-- Mike

--
just,my${.02}