Help for this page

Select Code to Download


  1. or download this
    $lines[ @lines + 1 - s -^\053|\012--g ] .= $_  while <DATA>;
  2. or download this
    chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>;