#!/usr/local/bin/perl

while  (<>)
   {
   s/,[ ]*/,/g;
   s/,/\n/g;
   print $_;
   }