if( $line =~ /^[A-Z]+$/ ) {
    # matched
  }
  else {
    # did not match
  }