That's what test2.tcl in this
[http://zeus.itworld.com:9000/AppDev/4061/swol-1218-regex/]
"[Regular Expressions]" column does.