in reply to Reading chunks of text

Maybe this? (untested) 

while(my $line = <$fd>) {
    $line =~ /^Window/ ? push (@para, $line)
                       : ($para[$#para] .= $line);
}

[download]

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

In Section Seekers of Perl Wisdom