sub bytelen(_) {
    require bytes;
    return bytes::length($_[0]);
}

##</code><code>##

sub utf8len(_) {
    utf8::upgrade($_[0]);
    require bytes;
    return bytes::length($_[0]);
}

##</code><code>##

sub utf8len(_) {
    utf8::upgrade($_[0]);
    Encode::_utf8_off($_[0]);
    my $utf8len = length($_[0]);
    Encode::_utf8_on($_[0]);
    return $utf8len;
}