my $count = 0;

while( <$fh> )
    {
    $count += tr/;//
    }