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