my $count = $string =~ tr/;//