## not this
## $n = ($string =~ tr/$search//);
$n = () = $string =~ m/$search/g;