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"]; .  [regsub -inline {\.*ga$} $domain {}] }