use strict;
use Parse::RecDescent;
use Data::Dumper;

my $grammar = q{
	viruslog: message(s)
		{ %{$return} = map {@{$_}} (@{$item[1]}); }
		
	message: /^(\w+):\s+ (.*)/x
		{	$return = [lc($1), $2]; }
};
my $parser = new Parse::RecDescent $grammar or die "Invalid grammar";


foreach (split /---+/, join '', <DATA>) {
	my $record = $parser->viruslog($_);
	print Dumper($record) if defined $record;
}


__DATA__
From: pminich@foo.com
To: esquared@foofoo.com
File: value.scr
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------
Date: 06/30/2002 00:01:21
From: mef@mememe.com
To: inet@microsoft.com
File: Nr.pif
Action: The uncleanable file is deleted.
Virus: WORM_KLEZ.H
----------------------------------