Mine

my($channel)='#ard'; # Which channel do i have to auto-voice? (include the #)

# Example: my($channel)='#thechannel';


IRC::register ("allvoice script", "1.0", "", ""); 
IRC::print ("allvoice script loaded");
IRC::add_message_handler('JOIN', joined); 

sub joined{
	unless ($_[0]=~/\A:(.*)\!.*JOIN :(.*)\Z/){
		#If it isn't that someone joined, but e.g. somone just said JOIN :
		return;
	}
	my($persoon)=$1;
	my($test)=index($persoon,$persoon);
	
if ($2=~/\A\Q$channel\E\Z/i){
		IRC::command("raw MODE $channel +v $persoon"); 
	}

	return;	
}