on *:text:@l*:#:{
  if ($1 == @l) {
    set %capsam $regex($2-,/[A-Z]/g)
    set %capsper $calc(100 * $regex($2-,/[A-Z]/g) / $len($2-))
    msg # 3<7|4 $+ $nick $+ 7|3>1-12 Characters:4 $len( $+ $2- $+ ) 1-12 Letters In Caps:4 %capsam 1-12 Caps Percent:4 %capsper $+ % 1-
    unset %capsam | unset %capsper
  }
  else { halt
} }