Evaluated proc gayvp str { m [nlsplit $str] {x {. [^C]00,[gay2]$x}} \n}