my $count = length( $str =~ s/[^\Q$char\E]//rg );