Perl Scripting

[CP]

I'm running an OpenDC Hub and am currently making a bot for it. The bot is programmed in perl and I'm trying to take a second argument from one of the commands, ie when I run the command
+kick user
then user will be passed as a variable. This is what I have

if($data =~ /\+kick/)

$data is the actual message that is sent to the chat, and basically I have no idea what it does. I pretty much just copied and pasted this from another bot.
So is there a way I can add something after kick that will be passed as an argument?
Cheers
CP

[gorn]

if ($data =~ /+kick (.*)/)

that will check if it matches kick<space>something and set $1 to something

[CP]

Thanks for that, but that doesn't seem to work. I tried that command, and it just take +kick and then anything. It wont set whatever is after the space to $1.
Cheers
CP