my $s = "\x80\x80";
utf8::upgrade(   my $u = $s );
utf8::downgrade( my $d = $s );

is($u, $d);
is(utf8cut($u,2), utf8cut($d,2));