Don't know if it can be rewritten somehow, this is the output without patch
aug 23 22:44:56 $VAR1 = \bless( {
aug 23 22:44:56 'chat_type' => 'IRC',
aug 23 22:44:56 '_irssi' => '94811764237312',
aug 23 22:44:56 'nick' => '',
aug 23 22:44:56 'autosendcmd' => '',
aug 23 22:44:56 'own_host' => '',
aug 23 22:44:56 'realname' => '',
aug 23 22:44:56 'username' => '',
aug 23 22:44:56 'type' => 'CHATNET',
aug 23 22:44:56 'name' => 'QuakeNet'
aug 23 22:44:56 }, 'Irssi::Irc::Chatnet' );
aug 23 22:44:56 **$VAR2 = \'94811764236112'; // this is a SILC network**
aug 23 22:44:56 $VAR3 = \bless( {
aug 23 22:44:56 'username' => 'vague',
aug 23 22:44:56 'name' => 'freenode',
aug 23 22:44:56 'type' => 'CHATNET',
aug 23 22:44:56 'nick' => 'vague',
aug 23 22:44:56 'autosendcmd' => '',
aug 23 22:44:56 'own_host' => '',
aug 23 22:44:56 'realname' => 'vague',
aug 23 22:44:56 '_irssi' => '94811764235744',
aug 23 22:44:56 'chat_type' => 'IRC'
aug 23 22:44:56 }, 'Irssi::Irc::Chatnet' );
aug 23 22:44:56 $VAR4 = \bless( {
aug 23 22:44:56 'autosendcmd' => '',
aug 23 22:44:56 'nick' => '',
aug 23 22:44:56 'realname' => '',
aug 23 22:44:56 'own_host' => '',
aug 23 22:44:56 'type' => 'CHATNET',
aug 23 22:44:56 'name' => 'EFNet',
aug 23 22:44:56 'username' => '',
aug 23 22:44:56 'chat_type' => 'IRC',
aug 23 22:44:56 '_irssi' => '94811764232480'
aug 23 22:44:56 }, 'Irssi::Irc::Chatnet' );
aug 23 22:44:56 $VAR5 = \bless( {
aug 23 22:44:56 'type' => 'CHATNET',
aug 23 22:44:56 'name' => 'bitlbee',
aug 23 22:44:56 'username' => '',
aug 23 22:44:56 'realname' => '',
aug 23 22:44:56 'own_host' => '',
aug 23 22:44:56 'nick' => '',
aug 23 22:44:56 '_irssi' => '94811764220176',
aug 23 22:44:56 'chat_type' => 'IRC'
aug 23 22:44:56 }, 'Irssi::Irc::Chatnet' );