in reply to please help multiple lines parsing

So, you have to replace a newline followed by a plus sign with a space? This will do: 
    s/\n[+]/ /;

[download]

Abigail

Replies are listed 'Best First'.
Re: Re: please help multiple lines parsing
by Berik (Sexton) on Jan 24, 2004 at 00:52 UTC 
    while (<>) {
        if ( m/^header/ ) {
                (my $output = "." . $_ . <>) =~ s/\n[+]/ /;
                print $output;
                last;
        }
}

    [download]
    This will do the thing :)
[reply]
[d/l]
      header blah blah blah
+blah blah blah
+blah blah blah

      [download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom