Someone

on *:input:*: {
  if ($regex($1-,/(?:^|[][()<>{}'"\s])((?:(?:irc|s?ftp|https?:)\/\/|www\d*\.)[^\s./]+\.(?:\[\S*?]|\(\S*?\)|\{\S*?}|[^][()<>{}'"\s]|['"](?!\s|$|[()\[\]<>]))++)/iS) == 1) { 
    msg $active $replace($1-,$regml(1), $+ $regml(1) $+ ) | haltdef
  }
}