Evaluated proc translate {cc str} {set data [wget "http://translate.google.ca/translate_a/t?client=t&hl=en&sl=auto&tl=$cc&ie=UTF-8&oe=UTF-8&multires=1&oc=1&otf=2&ssel=0&tsel=4&uptl=es&alttl=en&sc=1&q=[urlencode $str]"]; set re [regexp -all -inline {".+?"} $data]; . $re }