(defun c:rem_first ( / str_to_lst te tel str_lst str )
(defun str_to_lst (str / len lst pos )
    (setq len (1+ (strlen "-")))
    (while (setq pos (vl-string-search "-" str))
        (setq lst (cons (substr str 1 pos) lst)
              str (substr str (+ pos len))
        )
    )
    (reverse (cons str lst))
)
(defun *error* ()(princ))
(setq te (car(entsel "\nSelect text to trim first and last word >")))
(setq tel (entget te))
(setq str_lst (str_to_lst (cdr (assoc 1 tel))))
(setq str_lst (cdr str_lst))
; Tony Tanzillo
(setq str(apply 'strcat(cons (car str_lst) (mapcar '(lambda (s) (strcat "-" s))(cdr str_lst)))))
(setq tel (subst (cons 1 str) (assoc 1 tel) tel))
(entmod tel)
(princ)
)