chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>;