use strict;
use warnings;

sub montrer($){ #chaîne 
my( $chn ) = @_;

	my @tab = split(//, $chn);
	foreach my $c ( @tab ){
		print ("$c - ".sprintf('%X', ord($c))."\n");
	}
	print "-------\n";
}#montrer

sub observer($){ #chaîne 
my( $chn ) = @_;

	montrer($chn);
	utf8::encode($chn);# Hic jacet lepus !
	montrer($chn);
}#observer

binmode(STDOUT, ":utf8");
use Encode 'decode_utf8';
$ARGV[0] = decode_utf8($ARGV[0], 1);
observer($ARGV[0]);