#!/usr/local/bin/perl

# $Id: suckformail,v 1.1 1997/12/09 20:00:46 czyborra Exp $

while (<>)
{
	print "From news " . localtime . "\n" unless $article++;
	$article = 0 if /^[.]\n$/;
	s/^[.]//;
	s/^From / From /;
	print;
}