Select Code to Download

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

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