my @p;

while (<DATA>)
{
  push @p, [],
    if /^Window/;
    
  push @{$p[-1]}, $_;
}