while(($object = $enum->Next)) {
		$para_temp++;
		$paragraph = $object->Range->{Text};
		$allText .= $paragraph;
		chop $paragraph;
		unless ($paragraph eq '') {
			$paragraph_count++;
		}
		chomp $paragraph;	
		@words = split /\s+/, $paragraph;
		$nwords += @words;  
		@chars = split //, $paragraph;
		$nchars += @chars;  
    }