#!/usr/bin/perl -w
use strict;

my $gCurRec;

foreach(qw(name to file action virus))
{
  $gCurRec->{$_}='';
}

while(<DATA>)
{
  $gCurRec->{name}=$1   if (/^From:\s*(.+?)\s*$/);
  $gCurRec->{to}=$1     if (/^To:\s*(.+?)\s*$/);
  $gCurRec->{file}=$1   if (/^File:\s*(.+?)\s*$/);
  $gCurRec->{action}=$1 if (/^Action:\s*(.+?)\s*$/);
  $gCurRec->{virus}=$1  if (/^Virus:\s*(.+?)\s*$/);

  if (/^-----/)
  {
    print $gCurRec->{name},"\t",
          $gCurRec->{to},"\t",
          $gCurRec->{file},"\t",
          $gCurRec->{action},"\t",
          $gCurRec->{virus},"\n";

    foreach(qw(name to file action virus))
    {
      $gCurRec->{$_}='';
    }

  }
}


__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
----------------------------------