Uhm, these are all broken. You are forgetting to remove the trailing newline before you concatentate. See Re: (MeowChow) Re2: Look ahead and join if the line begins with a + PS The compact example is even more broken - try running it on the sample data set.

my @lines = s//join'',<DATA>/e ? s/\n\+//g ? split "\n" : ($_) :($_);
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

# vulgar
my @lines;
$lines[@lines - s/^\+//] .= $_ while <FILE>;
[download]

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Ahmm

# vulgar AND broken
my @lines;
$lines[@lines - s/^\+//] .= $_ while <DATA>;
print @lines
__DATA__
This 
+is 
+supposed 
+to 
+be 
+one 
+line!
Oops
[download]

I'm sure that this is what you meant, but even this is broken as it will possibly remove the last char in the file if their is no trailing newline.

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

This will work:

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

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

I based my code on japhy's solutions, none of which were stripping newlines, probably because Rhodium didn't specify if he wanted them removed, or the lines to be simply concatenated as-is into single list items.

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

This fails by adding an undef element to the array if a newline is not the final character in the file. Changing my original easy enough though, without any regex or substr nastiness:

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

   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

@cleanet = scalar <NETLIST>;
while (<NETLIST>) {
  if (s/^\+// or s/^\*\+//) { 
    $cleanet[-1] =~ s/\n/ /;
    $cleanet[-1] .= $_ 
  } else { push @cleanet, $_ }
}
[download]

Of course, that simplifies to   $cleanet[-1] =~ s/\n/ $_/;,  but see merlyn's solution below.

  p