slang.tcl: fix word extraction regex