This is really confusing:

                foreach (%channels) {
                        $sock->send("JOIN $_\n") if ($channels{$_});
                }
[download]

also, $userHost could be probably gained as a result of one match, i.e. !(.*)@(.*) => !([^\s]+)