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