RosettaCodeData/Task/Tokenize-a-string/Tcl/tokenize-a-string-1.tcl

set string  "Hello,How,Are,You,Today"

set tokens [split $string ","]

foreach tok $tokens {
    puts -nonewline stdout "$tok\t"
}