# my $count = $_ =~ tr/;//   # same thing
my $count = tr/;//