Evaluated proc irclog_no_tcl num {regsub -linestop -all {^<.*> tcl .*\n} [irclog $num] {}}