Evaluated proc regexp_above pattern {set ll [last_line]; set nick [lindex $ll 1]; set msg [lindex $ll 3]; set matches [regexp -all -inline {s/(.+?)/(.+?)/} $pattern]; . "<$nick> [regsub [lindex $matches 1] $msg [lindex $matches 2]]"}