$subfamily =~ /[a-z]/
$name =~ /[a-z]/