use utf8;
use Encode;
use Encode::Byte;
binmode(STDOUT, ":utf8");
sub do_it {
my $from = $_[0];
my $name = undef();
if ($from =~ m/^(.*?) ) {
print unpack('U0H*', $1) . "\n\n";
$name = substr($1, 0, 128);
print unpack('U0H*', $name) . "\n\n";
}
return;
}
my $from = 'AAçAA AñAA ';
$from = decode_utf8($from);
do_it($from);
print "--------------------------------------\n";
$from = 'AüAAA AA ';
$from = decode_utf8($from);
do_it($from);