sub transform
  {
      if (!$Session->{'isAuthenticated'}) 
      { 
       if ($Request->ServerVariables("SERVER_NAME")->item()=~ /[a-z][1,3]&& productname1help/s')
         {
        #$Response->write("Hey its product1help address");

        my $trns= $Server->MapPath("Transforms/pLogin.xsl");
        return $trns;
      }