utf-8

use feature qw(say);
use strict;
use warnings;
use utf8;
use Encode qw(encode_utf8);

binmode STDOUT, ':encoding(utf-8)';
my $str = "Región";
printf "1: %vX\n", $str;
my $str2 = encode_utf8($str);
printf "2: %vX\n", $str2;