Evaluated proc str2dec {str sep} {. $sep[join [map [explode $str] {x {. [hex2dec [str2hex $x ""]]}}] $sep]}