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