Помогите вырезать последнее слово в строчке

$sText = 'hkcu\software\microsoft\winmine'
$sRes = StringRegExpReplace($sText, '^.*\\', '')
MsgBox(64, 'Info', $sRes)

$sStroka = StringSplit("hkcu\software\microsoft\winmine", "\")
MsgBox (64,"info", $sStroka[UBound($sStroka)-1])

$sRes = StringRegExpReplace($sText, '\\[^\\]+$', '')

$sText = 'hkcu\software\microsoft\winmine'
$sRes = StringRegExp($sText, '(.+)\\[^\\]+$', 1)
MsgBox(64, 'Info', $sRes[0])

$sText = 'hkcu\software\microsoft\winmine'
$sRes = StringLeft($sText, StringInStr($sText, "\", 2, -1)-1)
MsgBox(64, 'Info', $sRes)

$sText = 'hkcu\software\microsoft\winmine'

$sText = 'hkcu\software\microsoft\winmine'
MsgBox(64, @ScriptName, StringRight($sText, 10))

$sText = 'hdjjdj$&/ghjj/hfdbjm_AOD64_hjmvv/$&_ghjjvv' ; нужно обрезать строку так, что бы осталось "AOD64_hjmvv/$&"

$sText = 'hdjjdj$&/ghjj/hfdbjm_AOD64_hjmvv/$&_ghjjvv'
$aStr = StringRegExp($sText, "AOD64.{10}", 1)
If Not @error Then ConsoleWrite($aStr[0] & @CRLF)

$sText = 'hdjjdj$&/ghjj/hfdbjm_AOD64_hjmvv/$&_ghjjvv' ; нужно обрезать строку так, что бы осталось "AOD64_hjmvv/$&"
$sStr = StringMid($sText, StringInStr($sText, 'AOD64'), 14)
ConsoleWrite($sStr & @CRLF)