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