(use irregex)

(let* ((chkr (make-irregex-chunker cdr car))
       (m (irregex-search/chunked "(b)" chkr '("foo" "bar"))))
  (print m)
  (print (irregex-match-start-index m 0))
  (print (irregex-match-end-index m 0))
  (print (irregex-match-start-index m 1))
  (print (irregex-match-end-index m 1)))

;; #<regexp-match (1 submatch)>
;; 3
;; 1                            ; <- why is this not 4?
;; 3
;; 1                            ; <- why is this not 4?