Evaluated proc revise {expr sub} {regsub -all $expr [lsearch -regexp -inline [lreverse [chomp [rgrep {^<.+?> s/} [split [irclog 250] \n]]]] $expr] $sub}