Select Code to Download

my $finalline = "3.2   COMPLIANCE WITH LAWS AND REGULATIONS. While the
+ Product is in its possession or under its, or its sub-contractor's c
+ontrol, THEDUDES shall comply, or ensure that its subcontractors comp
+ly, with all applicable federal, state and local statutory and regula
+tory requirements regarding the manufacture, if applicable, packaging
+, handling transportation and storage of the Product.";
@words = ($finalline =~ /([A-Z][A-Z][A-Z]+)/g);
print ("@words \n");

COMPLIANCE WITH LAWS AND REGULATIONS THEDUDES

#!/usr/bin/perl -w

use diagnostics;
...
 my $traps = 0;
 my $escape = 0;
 my @words = "";

foreach $finalline (@masterarray){
     $escape = 0;
     $finalline =~ s/\&.{3,5}\;/ /g;
...
               $caps++;
}
#etc.