# vulgar AND broken
my @lines;
$lines[@lines - s/^\+//] .= $_ while <DATA>;
print @lines
__DATA__
This 
+is 
+supposed 
+to 
+be 
+one 
+line!
Oops