sub count
{
        my ($string, $char) = @_;
        my $index = -1;
        my $count = -1;
        do {
                $count++;
                $index = index($string, $char, $index + 1);
        } while ($index != -1);
        return $count;
}