string is integer
set x 0111; puts [expr {[string is integer $x] ? $x : 0}]
outputs 73
73
Cheers, -gustaf neumann