my @p;

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


##</code><code>##

my %h;

while (<DATA>)
{
  $key = $1,
  next
    if /^Window ([^:]+)/;

  push @{$h{$key}}, $_;
}