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