# vulgar
my @lines;
$lines[@lines - s/^\+//] .= $_ while <FILE>;