foreach $finalline (@masterarray){
     $escape = 0;
     $finalline =~ s/\&.{3,5}\;/ /g;
     $finalline =~ s/\s+/ /g;
     while ($finalline =~ /(\w\w+\b)/gc){
        $linelength++
     }
        if (($finalline =~ /^\s*\d|^\s*Section|^\s*Article|^\s*[A-Z]\.|witness whereof/i) && ($holder == $rtf)){
        while ($escape == 0){
            if (($finalline =~ /[A-Z][A-Z][A-Z]/) && ($caps == 0) && ($traps == 0)){
               print(">>>$finalline<<</n");
               @words = ($finalline =~ /([A-Z][A-Z][A-Z]+)/g);  
#PROBLEM CODE!!!                      
               print("@words");                                  
#PROBLEM CODE!!!                                       
               $lineholder = $finalline;                         
#PROBLEM CODE!!!                                            
               $finalline = join(' ', @words);                   
#PROBLEM CODE!!!                                    
               $caps++;
}
#etc.