gistfile1.txt

weechat::register("banantalk", "tjs", "0.1", "MIT", "Talk like banan", "", "");

weechat::hook_command("banantalk", "talk like banan", "", "", "", "banantalk", ""); 

sub banantalk {
    my (undef, $buffer, @args) = @_;

    for (split /\s+/, $args[0]) {
        weechat::command($buffer, $_, $channel);
    }
    return weechat::WEECHAT_RC_OK;
}