my %h;

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

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