#!/usr/bin/perl

use warnings;
use strict;
use Encode;

my $uri = '%C3%A9nfasis';
$uri =~ s/%([0-9A-Fa-f]{2})/chr(hex($1))/eg;
$uri = decode_utf8($uri);
$uri = encode("iso-8859-1", $uri);
print $uri;