//tokenize 32 IT DOES WORK | echo -a $regex($1-,/(?<= |^)[A-Z]+(?= |$)/g)

//tokenize 32 IT DOES WORK | echo -a $regex($1-,/\b[A-Z]+\b/g)

Code:
alias upperwords {
  tokenize 32 $$1
  var %a = 0
  while ($0) { 
    if ($1 isupper) &amp;&amp; ($1 isalpha) inc %a 
    tokenize 32 $2- 
  } 
  return %a 
}


//echo -a $upperwords(IT DOES WORK)