my $s = ...;

my $t = $s;
utf8::upgrade( $t );

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