Ответ

R. Averkov 29.08.2005 14:01

@grep_number[str]
^if(^str.int(-1) != -1){
	$result[$str]
}{
	$result[^str.match[(\d+)/.*][i]{$match.1}]
}

А если скорость важна не до такой степени, то можно мой регексп немножко подредактировать, и его каждый раз прогонять.

---