Not regex, but
Code:
on @*:text:*:#:{
  var %a = 1, %b = $0
  while %a <= %b {
    if $len($gettok($1-,%a,32)) => 100 {
      ban -k $chan $nick 100+ characters in the first word
      %a = %b
    }
  inc %a
}