This code does the same as a single utf8::decode:

use Encode::Guess;

sub my_decode
    {
    
    my $what=shift;
    
    #utf8::decode($what);utf8::decode($what);
    
    my $enc = guess_encoding($what);
    
    if(ref($enc))
        {

        $what = decode($enc->name, $what);

        }
    
    return $what;
    
    }
[download]