sub encode {
   my(@sample=@_);
   $site=&findsite($sample);