#! /usr/bin/perl -w

use strict; 

my $start = '/\b(?:' ;
my $end = ')\b/	REJECT' ;
my $max_length = 60000;
my $line = '';

while (<>) {
	chomp ;
	s/#.*// ;
	next if (/^$/) ;
	#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" ;
} ;