region-length.el

(defun region-length-kill (pref beg end)
  "counts the length/chars in the region.
Prefix argument counts newlines twice for DOS"
  (interactive "P\nr")
  (let* ((reg-len (- end beg))
	 (reg-len-dos? (if pref (+ (count-matches "\n" beg end)
				   reg-len)
			 reg-len)))
    
    (message (format "Region length: %s" reg-len-dos?))
    (kill-new (format "%s" reg-len-dos?))))