detecting all caps - mIRC Discussion Forums

Is there a way to detect if a query is in all caps and close it and give a message if so? Thanks.

on ^*:open:?:*: if ($isupper($1-)) { .msg $nick TOO MANY CAPS | halt }

Code:

on $^*:open:?:/^[A-Z]+$/:{ 
  msg $nick Change your nick, I don't like all uppercase. 
  haltdef 
}