Evaluated proc said args {set pattern [join ${args}]; set out ""; foreach line [raw_irclog 500] { if {[regexp "$pattern" [lindex $line 3]] == 1} {append out "<[lindex $line 1]> [lindex $line 3]\n"}};. $out}