sub is_valid_name { $_[0] =~ m{[a-zA-Z0-9_ ]} }