A
\!kb (.*)
my $temp_kb = $1;

print "KICK $chan ".(split " ",$temp_kb)[0]." :non mais, on se croit ou la?\n";
print "MODE  $chan +b $temp_kb*!*\@*\n";
print "PRIVMSG $debug :KB $temp_kb\n";