Evaluated proc said args {set pattern [join ${args}]; set matches [list]; foreach line [raw_irclog] { if {[regexp $pattern [lindex $line 3]] == 1} {, $matches $line}}; . $matches}