while ($finalline =~ /(\w\w+[\s\.])/gc){
   $linelength++;
}

##</code><code>##

if (($finalline =~ /[A-Z][A-Z][A-Z]/) && ($caps == 0) && ($traps == 0)){
    @words = ($finalline =~ /([A-Z][A-Z][A-Z]+)/g);  
    ...
}