Perl - объединение строк

$ cat test1.txt 
11 11111 1
+ 222
333 33 333
44444 44 4 
$ cat test1.txt | perl -0 -pe 's/\n\s*\+//g'
11 11111 1 222
333 33 333
44444 44 4

Спасибо. А как сделать то же в теле программы?

undef $/;

Кажется разобрался:

undef $/;
while(<IN>)
{
s/\n\s*\+//g;
print
}


Однако для того, чтобы найти что-то вроде
...
...
жили-были старик
со старухой
...
...

придеться перед этим делать undef $/, а потом обратно $/ = "\n", что неудобно.

> undef $/;
> while(<IN>)
> {
> s/\n\s*\+//g;
> print
> } 
> 
> придеться перед этим делать undef $/, а потом обратно $/ = "\n", 
> что неудобно.

{
    local $/;
    while(<IN>)
    {
        s/\n\s*\+//g;
        print
    } 
}

Да, про local как-то не подумал, спасибо.