Evaluated proc + args {set result [regexp -inline {^<(@| |\+)*(.+?)> (.+?)$} [join ${args}]];. [llength $result]}