Be careful with those one-liners, they will make your code hard to understand (e.g. the impressive solution from moritz proves my point)
Anyway, I would go for a more readable solution, something like

while ( <DATA> )
 {
   chomp;
   my @line = ($_ =~ /\w+,\w+,\w+/g) ;
   printf "%s\n",  join("\n",@line);
 }
[download]

Cheers
LuCa