Extract all e-mail addresses from a list of Outlook recepients (formatted as "FirstName LastName <[email protected]>; ...")

extract_emails.scm

#!/usr/bin/env guile
!#

(use-modules (ice-9 textual-ports)
             (ice-9 regex))

(let* ((input (get-string-all (current-input-port)))
       (matches (list-matches "[^<]*<([^>]+)>+" input))
       (extractor (lambda (match) (match:substring match 1))))
    (display (map extractor matches)))