RosettaCodeData/Task/Tokenize-a-string/OoRexx/tokenize-a-string.rexx

text='Hello,How,Are,You,Today'
do while text \= ''
   parse var text word1 ',' text
   call charout 'STDOUT:',word1'.'
end