local $/ = "\n\n";
while(my $record = <DATA>) {
  next unless $record =~ m/^Some Header/;
    my ( $header, @lines ) = split "\n", $record;
    #print "$header @lines\n";
}