sub process_incoming {
    my (@incoming) = @_;

    return unless @incoming;

    for my $incoming (@incoming) {
        if ($incoming =~ /^JOIN (#\w+)/i) {
	    .........