Evaluated proc yturl2id url {lrange [regexp -inline {v=(([a-zA-Z_0-9]|\-|\_)+?)(?:$| |\&|#)} $url] end-1 end-1}