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