my $config_line = "joins=b:1(2, 3, 4);c:5(6, 7, 8);d:9(10, 11, 12)";

my ($name, $value) = split (/=/, $config_line);
if ($name eq "joins")
{
    my @joins;
    
    foreach (split (';', $value))
    {
        push (@joins, {"server" => $1, "port" => $2, "channels" => @{split (', ', $3)}}) if (/(.+):(\d+)\((.+)\)/i);
    }
    $config{"joins"} = \@joins;
}

my @joins = @{$config{"joins"}};

print $_->{"server"}."\n" foreach @joins;