bind-string-match: comments please

[weber]

I've written this helper function:

(defun bind-string-match (regexp string &optional start)
  (let ((ret (string-match regexp string start)))
        (when ret
          (catch 'end
                (dolist (i (number-sequence 1 10))
                  (let ((match (match-string i string)))
                        (if match
                                (eval `(setq ,(intern (concat "$" 
(number-to-string i))) ,match))
                                (throw 'end t))))))
        ret))

so that I can access the match groups with $1.. instead of (match-
string 1 string).
Is there any recommendation against this type of functions? Other than
polluting the global namespace?
Also, can one rewrite it without the `eval'?

TIA,
weber

PS: I'm not a Perl programmer!