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