## 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)
{
    ## build regex from encoding
    my $regex = $code;
    $regex =~ s/([[:alpha:]]+)[-_\s]*([[:digit:]]+)/$1.$2/g;
    $regex =~ s/([[:alnum:]]+)[-_\s]+([[:alnum:]]+)/$1.$2/g;

    print "NAME: $code\n";
    foreach my $item (@encs)
    {
        $encodings{$code} = $item;
        last if ($item =~ /^${regex}$/i);
        $encodings{$code} = $code;
    }
    print "ENCODING: $encodings{$code}\n";
}

1;