Select Code to Download

my(%encoding,%decoding);

...
    }
    return wantarray?@arg:$arg[-1];
}

sub UTF8::ord ($) {
    my $chr = shift;
...
        return ($ord[0] & 0x1F)<<6 | $ord[1] & 0x3F;
    }
}