$str=join('', map{int($_) eq $_?$_:ord($_)}split(', $str));