Select Code to Download

my $str = 'encontr\u00e9 configuraci\u00f3n v\u00e1lidod';
$str =~ s/ \\u ( \p{Hex}{4} ) / chr hex $1 /gex;
binmode STDOUT, ':encoding(utf-8)';
print $str, "\n";