regexp with word boundries not working in TCL

I have following code:

TCL using Regex to extract specific pattern word in a string

I’m trying to extract specific word in TCL using regex that have below criteria