chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>;
__DATA__
+
Oops, Just another Edge case