sub is_word_with_nondigit {
#    $_ = shift;
#    /^\w+$/ and /\D/;
    $_[0] =~ /^\w+$/ and $_[0] =~ /\D/;
}