Evaluated proc .ga_ domain { set result [http get http://admin.my.ga/registration/registerpaid?domainname=[regsub -inline {\.*ga$} $domain {}].ga "Referer: http://admin.my.ga/registration/registerpaid?domainname=oeuoeuoe.ga"]; if {[first $result] == 302} { return 1 }; return 0; .  [regsub {\.*ga$} $domain {}] }