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);