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";