$VAR1 = "Particípio Passado";
$VAR1 = "Partic\x{ed}pio Passado";
$VAR1 = "Partic\355pio Passado";

##</code><code>##

my $json_parser = JSON::XS->new->utf8;
my $data = $json_parser->decode($json_string);

##</code><code>##

use utf8;

##</code><code>##

use open ':std', 'locale';
use open ':std', ':encoding(UTF-8)';