Procédure
proc url_decode {data} { return [::tcl::string::map {"+" " "} [subst -novariables -nobackslashes [regsub -all {%([0-9a-fA-F]{2})} $data "\[binary format H* \\1\]"]]] }


Exemple
url_decode "www.domain.com?q=ceci+est+un%20t%c5%FFst.html" Tcl: www.domain.com?q=ceci est un tÅÿst.html