#! /usr/bin/perl -w

use strict; 

#my $start = '/\b(?:(?:\=[[:xdigit:]]{2})+|:\/\/|@|=40|\.)?(?:' ;
#my $start = '/\b(?:.{3,8}:\/\/)?(?:[^\/]{0,30}[\/.])?(?:' ;
my $start = '/\b(?:' ;
my $end = ')/i' ;
#my $max_length = 5000;
my $max_length = 5;
my $line = '';

my $SA_rule_prefix="LOCAL_BODY_IP_";
my $SA_rule_desc="LOCAL BODY IP ADDRESSES";
my $score = "5.0";

my $count = 1;

while (<>) {
	chomp ;
	s/#.*// ;
	next if (/^$/) ;
	#s/\./\(?:\\.\|=2e\)/g ;
	s/\./\\./g;
	$line .= "$_|" ;
	if (length($line) > $max_length ) {
		chop $line ;
        #print "rawbody\t$SA_rule_prefix$count\t",$start, $line, $end, "\n" ;
	    printit($line);
        $count++;
		$line = '';
	} ;
} ;

unless ($line eq '') {
	chop $line ;
	printit($line);
} ;


sub printit {
  my $LINE = shift;
  print "uri\t$SA_rule_prefix${count}\t",$start, $LINE, $end, "\n" ;
  print "describe\t$SA_rule_prefix${count}\t$SA_rule_desc $count\n" ;
  print "score\t$SA_rule_prefix${count}\t$score\n";
  print "\n";

#  print "uri\t$SA_rule_prefix${count}A\t",$start, $LINE, $end, "\n" ;
#  print "descript\t$SA_rule_prefix${count}A\t$SA_rule_desc $count A\n" ;
#  print "score\t$SA_rule_prefix${count}A\t$score\n";
#  print "\n";
#  print "rawbody\t$SA_rule_prefix${count}B\t",'/@.{0,30}(?:', $LINE, $end, "\n" ;
#  print "descript\t$SA_rule_prefix${count}B\t$SA_rule_desc $count B\n" ;
#  print "score\t$SA_rule_prefix${count}B\t$score\n";
#  print "\n";
};