exemple:

#!/usr/bin/tcl

# match demo

set fhandle [open words r]
set yes 0; set no 0

puts -nonewline "Globbing match demo - Pattern: "
flush stdout
set want [gets stdin]

while {[scan [gets $fhandle] %s word] >0} {
        if {[string match $want $word]} {
                puts "Matched $word"
                incr yes
          } else {
                incr no
          }
}
puts "matched $yes, didn't match $no"
gets stdin