sub count
{
        my ($string, $char) = @_;
        $string =~ s/[^$char]//g;
        return length($string);
}