这个问题不是很清楚，但我认为它可能是问如何一次测试多个模式。如果是这样，你可以这样做：

if {[regexp -- {am|string|stuff} $string]} {
    Do something here
}

regexp可以处理的模式形式在https://www.tcl-lang.org/man/tcl/TclCmd/re_syntax.html中有文档记录

要一次获取一个字符串中的所有匹配项，可以使用-all选项regexp，可能是-inline（除非您只想计算有多少个匹配项）。您可以获取匹配项的文本（默认），或者获取它们所在的索引（如果您给予-indices选项）。然后通常使用foreach来检查匹配结果列表;这是一个有效的组合。
下面是一个示例：

set inputText "badaafaaagaaaahaaaaa"
foreach aSequence [regexp -all -inline {a+} $inputText] {
    puts $aSequence
}

它打印：

a
aa
aaa
aaaa
aaaaa

请注意，如果在正则表达式中使用捕获括号，则可能希望foreach的多变量形式遍历结果。