#!/usr/bin/perl
use strict;
use warnings;

my @data;
my $keys = 'Log Name|Source|Date|Event ID';
{
	local $/ = '';
	while (<DATA>) {
                chomp;
		my %temp = /($keys): (.+)/g;
		if (/^\s+Description:\s+(.+)\z/sm) {
			$temp{description} = $1;	
		}
		push @data, \%temp;
	}	
}
use Data::Dumper; print Dumper \@data;