Generalized one -
substring($string,1, string-length($string)-string-length(str:split($string, '_')[count(str:split($string, '_'))]))
Idea is to get the index of last occurrence by splitting string.
Index of last occurrence = string-length($string) - length of last string after split