RosettaCodeData/Task/Tokenize-a-string/Perl-6/tokenize-a-string-2.pl6

say join '.', split ',', 'Hello,How,Are,You,Today';