Tcl Regexp Cas Sensitive Match