if ($str =~ /^(\w+\s+){50}\w+$/)