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