Evaluated proc {unknown:2:cmd/img-(.+)$/} {matches cmd args} {upvar #0 img img; set url [lindex [array get img [last $matches]] 1] ; if {[string length $url] != 0} {. $url} {. "[last $matches] not found."}  }