Re: (MeowChow) Re4: Look ahead and join if the line begins with a +

[tachyon]

Touche. But.....

chomp, $lines[@lines - s/^\+//] .= $_ while <DATA>;
__DATA__
+
Oops, Just another Edge case

cheers

tachyon

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

[MeowChow]

Well, didn't I say it was a vulgar solution? :-)

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