alias d.url {
  var %:text = $1-
  if ($regex(%:text,/(\b(www.?\.|https?:\/\/|ftp:\/\/).)/i)) {
    var %a = 1
    while (%a <= $numtok(%:text,32)) {
      if ($regex($gettok(%:text,%a,32),/(\b(www.?\.|https?:\/\/|ftp:\/\/).)/i)) {
        var %b = $+($chr(3),12,$chr(31),$gettok(%:text,%a,32),$chr(31),$chr(3))
        var %:text = $puttok(%:text,%b,%a,32)
      }
      inc %a
    }
  }
  return %:text
}