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