#!/usr/bin/perl

use warnings;
use strict;

my $x = do {local $/; <DATA>};
$x =~ s/\n/,/g;
$x =~ s/,,+/\n/g;
print $x;

__DATA__
1111
2222
3333

4444
5555
6666