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