perl encode decode utf8

utf8.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Encode qw/encode decode _utf8_on/;
use utf8;

binmode(STDOUT,':utf8'); # suppress "widecharacter in print" warnings

my $foo = "it's ascii";
my $bar = "это юникод";

my @a = ($foo, $bar);

for my $s (@a) {
	printf "raw: is_utf8('$s') == %d\n", utf8::is_utf8($s);
        my $e = encode("utf8", $s);
	print "encoded octets = ";
	print "0x$_ " for unpack "(H2)*", $e;
	print "\n";
	my $d = decode("utf8", $e);
	printf "decoded: is_utf8('$d') == %d\n", utf8::is_utf8($d);
       	print "decoded octets = $d\n"; 
	print "-" x 50;
	print "\n";
}