{
    $OUT = "";
    my $supported = $settings{SUPPORTED};
    return unless defined $supported;
    if ($supported =~ /UTF-8/)
    {
	$supported =~ s/"(.*)"/$1/;
	my @supported = 
	    map { s/(.*)\.UTF-8/$1/ ; $_ } split(/:/, $supported);
	# Remove duplicates
	my %seen;
	@supported = grep { !$seen{$_}++ } @supported;
	$settings{SUPPORTED} = '"' . join(":", @supported) . '"';
    }
}
