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