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