Evaluated proc rpic name { string map {http:// {} www {} . {} / {} , {} # {} , {}} [regsub -all {\d} [pics $name] ""] }