sub bot_command {
    my $command = shift(@_);

    join_channel($command) if ($command =~ /join/);
    part_channel($command) if ($command =~ /part/);
    msg_user($command)     if ($command =~ /msg/);
    ....
    default($command);
}