use warnings;
use strict;
use diagnostics;

$/ = "\n+";
my @file = <DATA>;
chomp (@file);
print "@file\n";

__DATA__

xabcd a1
+b1
+b2
+b3
+b4
+b5 abcd
xcdef c1
+d1
+d2
+d3
+d4
+cdef