DB<115> $str='A B C'
 => "A B C"

  DB<116> $str !~ /[A-Z].*[A-Z]/
 => ""

  DB<117> $str="   A   "
 => "   A   "

  DB<118> $str !~ /[A-Z].*[A-Z]/
 => 1