#!/usr/bin/perl -w

use diagnostics;
use Spreadsheet::WriteExcel::Big;
use HTML::Restrict;
use File::Slurp;
#use Win32::Word::Writer;
use RTF::Writer;

opendir(DIR2, "contract/new");
my @files2 = readdir(DIR2);
closedir(DIR2);

foreach $file2 (@files2) {
 print "$file2\n";
 open (FH2, "contract/new/$file2");
 $newfile2=$file2;
 $newfile2 =~ s/\.html//g;
 my @filelines2 = <FH2>;
 chomp @filelines2;
 my $masterplan = join(' ', @filelines2);
 $hr2 = HTML::Restrict->new();
 $masterplan = $hr2->process($masterplan);
 my @masterarray = split('DUMMY',$masterplan);
 my $caps = 0;
 my $traps = 0;
 my $escape = 0;
 my @words = "";