\#!/usr/local/bin/perl -w

%Acts = ();
#use Getopt::Long;
use strict;
my $filetoopen1 = 1;
my $filetoopen = 1;
my @WordList = 1;
my %Groups = 1;
my $TheLine = 1;
#####################
       &Actsin1;
       &Group;
#####################
sub Actsin1
{
    $filetoopen1 = "c:/Update/nosect.txt";
    open (ACTLIST, $filetoopen1) || die "Could not open file $filetoopen1 \n";
    open (OUTPUT2,">c:/Update/Errors.txt") || die "Could not open output \n";
    dbmopen (%Groups, "c:/Update/Groups",0666) || die "Could not open Acts database\n";

   @WordList = (<ACTLIST>);
}
#####################
sub Group
{
$filetoopen = "c:/update/makeme/statutes\.fff";
open (INPUT, $filetoopen) || die "Could not open file $filetoopen \n";
open (OUTPUT,">c:/update/makeme/newstat.fff") || die "Could not open output \n";

        $TheLine = $_;

        while (my $TheLine = <INPUT>)

        {
                if ($TheLine =~ /<RD>[^\n]*Status Compendium<<.JL>/i)
        {
               for(my $i=0; $i > @WordList; $i++)
               {
                  print OUTPUT $TheLine if($TheLine ne $WordList[$i])
               }
        }

}
}
##################