LISP needed to delete text before or after a dash

I am looking for a LISP routine that would delete a string of text before or after a DASH.

I have looked everywhere for such a thing and not sure if this exists, or not sure if there is an easy way to do this otherwise.

I have attached  a drawing to better explain.

Any help is very appreciated.

Thanks in advance!