может, так...

Азат Разетдинов 22.03.2003 21:55

$arr[^str.split[Вася]]
$result($arr-1)

---