while ($client) {
    sysread($client, $incoming, 1024);
    process_incoming(split /\n|\r/, $incoming);
    undef $incoming;
    sleep 1;
}

##</code><code>##

Use of uninitialized value in pattern match (m//) at ./monkcb line 215.

##</code><code>##

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

    return unless @incoming;

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