anchor.diff:      (values (multiple-value-bind (match vec)
                   (scan-to-strings
                    (create-scanner
  -                  "<title\\s*>\\s*(.+)\\s*</title\\s*>"
  +                  "<title[.\\s]*>\\s*(.+)\\s*</title[\\s.]*>"
                     :case-insensitive-mode t) body)
                 (declare (ignore match))
                 (if (< 0 (length vec))
  
positive.code:     (handler-case
          (multiple-value-bind (title url)
              (url-info (grab-url *message*))
            (send-msg *bot* *channel* (format nil "Title: ~A (at ~A)" title (puri:uri-host (puri:uri url)))))
        (error ()
          (values)))))
  
  
negative.code:   (multiple-value-bind (title url)
        (google-search query)
      (send-reply *bot* *sender* *channel*
                  (format nil "~:[~;~A ~]<~A>" title url))))
  
  (defun google-search (query)
    (url-info (search-url
  