Help for this page
sub is_valid_name { $_[0] =~ m{[a-zA-Z0-9_ ]} }
sub is_valid_name { $_[0] !~ m{[^a-zA-Z0-9_ ]} }