D: Split string from the second occurrence of the character

I need to do splitting string before the second occurrence ("-").

Example: s1-qwe-123

need to get: s1-qwe

What is the best practice?

Ehm, thanks, but faced with situation where some files have structure like: s1-123. And I need to get from them: s1.

Is there any way to make variant with split process such situation?