while (<DATA>)
{
    chomp;
    next unless /^(\S+):\s+(.+)\s*$/;
    my ($key, $val) = (uc $1, $2);

    if ($key eq 'DATE')
    {
        push @data, $hash if defined $hash;
        $hash = {};
    }

    $hash->{$key} = $val;
}