http://www.perlmonks.org?node_id=158234


in reply to Re: Look ahead and join if the line begins with a +
in thread Look ahead and join if the line begins with a +

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

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Seekers of Perl Wisdom