Evaluated +t math {^(.+?)$} { if { [catch {expr %%1} result] == 0 } { . $result } }