(require 'url-util)

(defun our-copy-region-url-encode ()
  (interactive)
  (kill-new
   (url-hexify-string
    (buffer-substring-no-properties
     (region-beginning) (region-end)))))