(defun get-region-string ()
  (cond
   ((rectangle-mark-mode)
    (mapconcat
     'identity (extract-rectangle (region-beginning) (region-end)) "\n"))
   ((t)
    (unless (region-active-p) (mark-paragraph))
    (buffer-substring (region-beginning) (region-end)))))