open(LF,"$logFile") || die "Can't open $logFile: $!\n";
open(OF,">$outputFile") || die;
while ($line=<LF>) {
        chomp($line);
        if ($line =~ /^Date:\s+(\S+)\s(\S+)/) {
                $date=$1 . " " . $2;
        }
        if ($line=~ /^From:\s+(\S+)/) {
                $from=$1;
        }
        if ($line=~ /^To:\s+\S+/) {
          # Some "To: lines have multipe ", "
          # delimited addresses  
     my ($crap, @to);<br>
                ($crap, @to)=split(/\s+/,$line);
        print OF "$date\t$from\t@to\n";
        }
}
close(LF);
close(OF);