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