RosettaCodeData/Task/Tokenize-a-string/Prolog/tokenize-a-string-2.pro

?- split_string("Hello,How,Are,You,Today", ",", "", Split),
|    atomics_to_string(Split, ".", PeriodSeparated),
|    writeln(PeriodSeparated).
Hello.How.Are.You.Today