A \@allow ([^\s]*) $ajout = $1; if (\$fullpower !~ / \$ajout /) { print "PRIVMSG $chan :Ajout de $1 pour le controle du bot.\n"; open(CONF_OPEN,"config"); my @temp_nick = ; close CONF_OPEN; open(CONF_WRITE,">config"); foreach(@temp_nick) { if (/^\$fullpower/) { print CONF_WRITE "\$fullpower=\"$fullpower$ajout \";\n"; } else { print CONF_WRITE "$_"; } } close CONF_WRITE; } else { print "PRIVMSG $chan :$1 a deja le pouvoir :)\n"; }