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