my $s = ...;

my $t = $s;
utf8::downgrade( $t );          # Might croak

say utf8::is_utf8( $t ) ?1:0;   # 0
say $s eq $t            ?1:0;   # 1