on *:TEXT:*:#: {
  if $regex($1-, ^[^a-z]{10,}$) > 0 {
    /msg $chan $nick, Please calm down on the caps!
  }
}