while<>
{
     my @arr = split(/,/,$_);
    
     printf ("%s\n",$arr[0]);
     printf ("%s%s\n",$arr[1],$arr[2]);
     printf ("%s\n",$arr[3]);
}