Using Scheme's match with regexp in Racket

match regexp

; ISIN, e.g. US0378331005
(define Apple-ISIN "US0378331005")


; ISO6166 International Securities Identification Number (ISIN)
; ISO3166-2 plus National Securities Identifying Number (NSIN)
(match Apple-ISIN
  [(regexp #px"^([A-Z]{2})([0-9]{9})([0-9])$" (list _ country NSIN check))
   (list country NSIN check)])

(match "http://example.com/foobar"
    [(regexp #rx"^([^:]+)://([^/]+)/(.+)$" (list _ protocol hostname path))
     (list protocol hostname path)])