(defun fwoar--paste-from-register-mru-buffer (register)
  (interactive
   (let ((overlay (make-overlay (point) (point)))
         (string "\""))
     (unwind-protect
         (progn
           ;; display " in the buffer while reading register
           (put-text-property 0 1 'face 'minibuffer-prompt string)
           (put-text-property 0 1 'cursor t string)
           (overlay-put overlay 'after-string string)
           (list (or evil-this-register (read-char))))
       (delete-overlay overlay))))
  (let ((filename (with-current-buffer helm-current-buffer 
                    (evil-get-register register t))))
    (insert filename)))

  (define-key helm-map (kbd "C-r") 'evil-paste-from-register))

  (define-key helm-map
    (kbd "C-r")
    'fwoar--paste-from-register-mru-buffer)