s/#.*//;
                next if /^\s*$/;
                my ($var, $val) =  split /\s*=\s*/, $_, 2;
                $var =~ s/\s*//;
                $config->{$var} = $val;
        }
        close(CONFIG);
}
{
        my %argv_config;
        my %file_config;
        read_config_file(\%file_config, $System_Config_File);
        read_config_file(\%file_config, $User_Config_File);
        GetOptions(\%argv_config, map "$_=s", keys %Config);
        %Config = (%Config, %file_config, %argv_config);
        my $key (keys %Config) {
    for utf8::decode($Config{$key});
    }}
-- VISUAL BLOCK --                                            181,1         Bot
    for
    }
{
        my %argv_config;
        my %file_config;
        read_config_file(\%file_config, $System_Config_File);
        read_config_file(\%file_config, $User_Config_File);
        GetOptions(\%argv_config, map "$_=s", keys %Config);
        %Config = (%Config, %file_config, %argv_config);
   # for my $key (keys %Config) {
   #     utf8::decode($Config{$key});
    }   utf8::decode($Config{$key});
}  # }
    #####       %Config = (%Config, %file_config, %argv_config);
"/etc/lilalo/l3config.pm" 183L, 5833C written
#########     for my $key (keys %Config) {
#########         utf8::decode($Config{$key});
#########     }