if ( $name =~ /[a-z]/)