Evaluated proc regexp_above pattern {set matches [regexp -all -inline {s/(.+?)/(.+?)/} $pattern]}