## load the required encodings
my %encodings = (
                 "iso-8859-1" => "iso-8859-1",
                 "iso-8859-2" => "iso-8859-2",
                 "EUC-JP"     => "EUC-JP"
                );

## load all available encodings
my $ret = `locale -m`;
my @encs = split /\s*\n\s*/, $ret;

foreach my $code (keys %encodings)
{
    ## explode encoding parameters
    $code =~ /([[:alpha:]]+)[-_\s]*([[:alnum:]]+)[-_\s]*([[:digit:]]*)/;
    my $standard = $1;
    my $number   = $2;
    my $variant  = $3;

    print "NAME: $code\n";
    foreach my $item (@encs)
    {
        $encodings{$code} = $item;
        last if ($item =~ /^$standard[-_\s]*$number[-_\s]*$variant$/i);
        $encodings{$code} = $code;
    }
    print "ENCODING: $encodings{$code}\n";
}

1;