Select Code to Download

my $string = 'blabla';
my $is_unicode = utf8::is_utf8($string) ? 'YES' : 'NO';
print "my string: $string is unicode: $is_unicode\n";

#!/bin/env perl
use strict;
...
$is_unicode = utf8::is_utf8($decoded_string) ? 'YES' : 'NO';
print "my string: $decoded_string is unicode: $is_unicode\n";
print Dumper(\$decoded_string), "\n";

#!/bin/env perl
use strict;
...
$is_unicode = utf8::is_utf8($decoded_string) ? 'YES' : 'NO';
print "my string: $decoded_string is unicode: $is_unicode\n";
print Dumper(\$decoded_string), "\n";

my string: müßig is unicode: NO
$VAR1 = \'müßig';

my string: m__ig is unicode: YES
$VAR1 = \"m\x{fc}\x{df}ig";