alias regexperform {

  set %massperform.action $2-
  set %massperform.count 0
  set %massperform.total $nick($chan,0)
  :nextperform 
  inc %massperform.count
  if (%massperform.count > %massperform.total) { halt }
  ;if ($nick($chan,%massperform.count) == $me) { goto nextperform }

  if ($regex(REGEXPERFORM,$nick(#,%massperform.count),$1) == 1) {
    sysmsg Regex Match: $1 on $nick(#,%massperform.count)
    raw $replace($replace(%massperform.action,@NICK@,$nick(#,%massperform.count)),@CHAN@,$chan)
  }
  goto nextperform

}