[RegExp] Извлечение числа из (скобок)

StringRegExp($sUni, '^Зелье манны 100 МА (\d{10} ед.))$')

$ManaPotion = .......
  MsgBox(64, '', $ManaPotion ); Где $ManaPotion = Зелье манны 100 МА (147 ед.)

$sRegExp = '<option value="13720795">Зелье манны 100 МА (147 ед.)</option>'
$sRegExp = StringRegExpReplace($sRegExp, '<option.*>(.*?)</option>', '$1')
ConsoleWrite($sRegExp & @CRLF)

$sRegExp  = _IEPropertyGet ($oIE, "innerhtml")
StringInStr($sRegExp, 'Зелье манны 100 МА')
$oRegExp = StringRegExpReplace($sRegExp, '<option.*>(.*?)</option>', '$1')
ConsoleWrite($oRegExp & @CRLF)

;...
$sHTML = _IEPropertyGet($oIE, 'innerhtml')
$sSearch = StringRegExpReplace($sHTML, '(?s).*<option.*>(Зелье.*?)</option>.*', '$1')
If @extended = 1 Then
	ConsoleWrite($sSearch & @LF)
Else
	ConsoleWrite('Error' & @LF)
EndIf

$sHTML = _IEPropertyGet($oIE, 'innerhtml')
$sSearch = StringRegExpReplace($sHTML, '(?s).*<option.*>(Зелье манны 100 МА.*?)</option>.*', '$1')
If @extended = 1 Then
    ConsoleWrite($sSearch & @LF)
Else
    ConsoleWrite('Error' & @LF)
EndIf

;...
$sHTML = _IEBodyReadHTML($oIE)
$sSearch = StringRegExpReplace($sHTML, '(?si).*<option.*>(Зелье.*?)</option>.*', '$1')
;...