$charset = [ $charset ] unless ref $charset eq 'ARRAY';
        my $charset_input  = shift @$charset || 'US-ASCII';
        my $charset_output = shift @$charset || $charset_input;

##</code><code>##

if ($charset_input ne $charset_output) {
    my $perl_string= $charset_input eq '*internal*'
        ? $string
        : Encode::decode($charste_input, $string);
    $string= Encode::encode($charset_output, $perl_string);
}