Evaluated proc regexp_above pattern {set msg [lrange [split [irclog 1] " "] 1 end]; set nick [lindex [split [irclog 1] " "] 0]; set matches [regexp -all -inline {s/(.+?)/(.+?)/} $pattern]; . "$nick [regsub [lindex $matches 1] $msg [lindex $matches 2]]"}