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