Evaluated proc str2img args {last [regexp -inline {UpdateImage\("(.+?)"\)} [http post http://cooltext.com/PostChange "LogoID=1052217399&Text=$args"]]}