Select Code to Download

my $s = ...;

...

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

my $s = ...;

...

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

utf8::decode( $_ ) if !utf8::is_utf8( $_ );

utf8::encode( $_ ) if utf8::is_utf8( $_ );