Tcl Regexp Cas Sensitive2