#!/usr/bin/perl -w
use strict;
my @array;
my @bigun;
my $i;
open (FILE, "/test.txt");
while (<FILE>){
   chomp($_);
   if (/,/){
      #out with the old
      push @bigun, (join ' ',@array) if (@array);
      #and in with the new
      @array=split /,/,$_;
   }
   else {
      #append the 'un-commaed' line to the lest element of the array
      $array[$#array]=$array[$#array].$_;
   }

}
push @bigun, (join ' ',@array);
foreach $i(0..$#array){
   print "$bigun[$i]\n";
}