Из строки вычленить 2 цифры и положить их в переменные

[Soderling]

Здравствуйте! Помогите пожалуйста сделать рабочий скрипт при котором из ниже приведенной переменной будут вытащены 2 цифры, каждая в свою переменную.

$a = "Скидка появится через 5 ч. 20 мин"

$b = "" ; сюда должно попасть 5
$c = "" ; сюда должно попасть 20

 

[IMStrelcov]

$a="Скидка появится через 5 ч. 20 мин"
$b=StringRegExp($a, '\D*(\d*)\D*(\d*).*', 3)
$c=$b[1]
$b=$b[0]
MsgBox(0,0,$b&'/'&$c)
Exit

 

[Soderling]

$a="Скидка появится через 5 ч. 20 мин"
$b=StringRegExp($a, '\D*(\d*)\D*(\d*).*', 3)
$c=$b[1]
$b=$b[0]
MsgBox(0,0,$b&'/'&$c)
Exit

Огромное спасибо! IMStrelcov