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