RosettaCodeData/Task/Tokenize-a-string/Perl/tokenize-a-string-1.pl

print join('.', split /,/, 'Hello,How,Are,You,Today'), "\n";