$lines[ @lines + 1 - s -^\053|\012--g ] .= $_  while <DATA>;

##</code><code>##

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