regexp
regexp {(?:.*)(?:xx/)(.*?)(/)(.*)} $b all var
=============== tst ===============
set a {<xxxxx/fadxx/abc/yyyyyyyyyyyyyyy }
if [regexp {(?:.*)(?:ip/)(.*?)(/)(.*)} $b all var] {puts $var}
# abc
1,(?:xx/) ?: 确定不要匹配的字符。如(?:xx/) 不要匹配。
2,((.*?)) ? 表示不贪婪