#! /usr/bin/perl -w

use strict; 

my $start = '/(?:' ;
my $end = ')/i' ;
#my $max_length = 5000;
my $max_length = 500;
my $line = '';

my $SA_rule_prefix="LOCAL_BODY_PHRASES_";
my $SA_rule_desc="LOCAL BODY PHRASES";
my $score = "5.0";

my $count = 1;

while (<>) {
	chomp ;
	s/#.*// ;
	next if (/^$/) ;
	$line .= "$_|" ;
	if (length($line) > $max_length ) {
		chop $line ;
        printit($line);
        $count++;
		$line = '';
	} ;
} ;

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

sub printit {
  my $LINE = shift;
  print "rawbody\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";
} ;