use strict;
use warnings;

local $/ = "";

while (<DATA>){
    chomp;
    s/\n/,/g;
    print "$_\n";
}

__DATA__
1111
2222
3333

4444
5555
6666