if( ($line eq uc $line) && ($line !~ /\d/) ) {
 . . . 
}