s$ = "Hello,How,Are,You,Today"
a$[] = strsplit s$ ","
print strjoin a$[] "."