#!/usr/bin/perl
use warnings;
use 5.16.2;

$/ = "\n+";
while (<DATA>) {
	if ($_ =~ m/\+/) {
			s/\n\+//;
	}
	print;
}