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

##</code><code>##

#!/bin/env perl
use strict;
use warnings;

use Data::Dumper;
use Encode;

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

##</code><code>##

#!/bin/env perl
use strict;
use warnings;

use Data::Dumper;
use Encode;

my $string = 'müßig';
my $is_unicode = utf8::is_utf8($string) ? 'YES' : 'NO';
print "my string: $string is unicode: $is_unicode\n";
print Dumper(\$string), "\n";
my $decoded_string = decode('UTF-8', $string);
$is_unicode = utf8::is_utf8($decoded_string) ? 'YES' : 'NO';
print "my string: $decoded_string is unicode: $is_unicode\n";
print Dumper(\$decoded_string), "\n";

##</code><code>##

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

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