Select Code to Download

sub multidecode_utf8 {
    my $s = shift;
    1 while $s =~ tr/\x80-\xFF// && utf8::decode($s);
    return $s;
}

use strict;
use warnings;
...
        utf8::encode($str);
    }
}