sub isStrOK {
	return $_[0] =~ /\A[\s\w]+\z/;
}