#! /usr/bin/perl -w

use strict; 

#my $start = '/(?:=3A=2F=2F|:\/\/)?(?:www\.|@|\.)?\b(?:\=\d+)?(?:' ;

#my $start = '/(?:(?:=3A|:)(?:=2F|\/)(?:=2F|\/)|@)?[^\/\s]*(?:\.|=2E)?\b(?:\=[[:xdigit:]]{2})*(?:' ;
my $start = '/\b(?:(?:\=[[:xdigit:]]{2})+|:\/\/|@|=40|\.)?(?:' ;
my $end = ')\b/	REJECT' ;
my $max_length = 60000;
my $line = '';

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