Sorry for not answering your real question :)
Tcl won't evaluate the variable inside of {}. Try putting the regexp inside double quotes.
A fast way to test regular expressions is to use tclsh and experiment.
