while(<DATA>) { /(\w+)/g print "$1,$2,$3"; } __DATA__ word1 word2 word3 .. .. .. [download]
word1,, ... [download]
In reply to global regex by Anonymous Monk