Evaluated proc mitsuku str {string tolower [last [regexp -inline {<B> Mitsuku:</B>  (.+?)<br>} [http post http://fiddle.pandorabots.com/pandora/talk?botid=def8d27a6e345a36&skin=mobile "botcust2=f9beef7a9e191b2d&message=[urlencode $str]" "Cookie: botcust2=f9beef7a9e191b2d"]]]}