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