tcl regexp nocase example - read on nlp-wiki.org