RosettaCodeData/Task/Tokenize-a-string/Scheme/tokenize-a-string-2.scm

(define s "Hello,How,Are,You,Today")
(define words (string-tokenize s (char-set-complement (char-set #\,))))
(define t (string-join words "."))