use Xchat qw(:all);
my @channels = ("#channel1", "#channel2");
hook_print( "You Join",
   sub {
      my $channel = $_[0][1];

      if( grep { lc $channel eq lc $_ } @channels ) {
         command "CHANOPT CONFMODE OFF";
           }

      return EAT_NONE;
   }  
);