OPTION BASE 1

string$ = "Hello,How,Are,You,Today"

' Tokenize a string into an array
SPLIT string$ BY "," TO array$

' Print array elements with new delimiter
PRINT COIL$(i, UBOUND(array$), array$[i], ".")

' Or simply replace the delimiter
PRINT DELIM$(string$, ",", ".")