Code:
alias caps {
  var %l = 1, %c = 0
  while ($mid($1, %l, 1) != $null) {
    var %le = $ifmatch
    if ($asc($ifmatch) isnum 65-90) /inc %c
    /inc %l 
  }
  return $round($calc((%c / $len($1-)) * 100), 2)
}


That will return thepercentage of caps. i.e.

$caps(TEst) = 50.0
$caps(Test) = 25.0
$caps(HEllo) 40.0