Posted to tcl by rmax at Tue Jul 28 10:31:28 GMT 2015view pretty

regexp {(?:[^\{]|^){\w+\.\w+}} $string