#! /usr/bin/perl -w 

use strict;

my $start = '/^(?:Reply-To|CC|To|From|Sender|X-Envelope-Sender|Message-Id):.*@(?:' ;
my $end = ')\b/	REJECT' ;
my $max_length = 60000;
my $line = '';

while (<>) {
	chomp ;
	s/#.*// ;
	next if (/^$/) ;
	next if (/^[0-9.]+$/);
	next if (/\//);
	s/\./\\./g ;
	#s/\./\(\\.\|=2e\)/g ;
	#s/\./\(?:\\.\|=2e\)/g ;
	$line .= "$_|" ;
	if (length($line) > $max_length ) {
		chop $line ;
		print $start, $line, $end, "\n" ;
		$line = '';
	} ;
} ;

unless ($line eq '') {
	chop $line ;
	print $start, $line, $end, "\n" ;
} ;