sub is_utf8 {
    utf8::upgrade( $_[0] );
    return 1;
}