use Encode;
use warnings;

binmode(STDOUT, ":encoding(cp437)");

$a="%C3%9F";
$a = encode("iso-8859-1", $a);
print $a."\n";

$a="%C3%9F";
$a= encode("iso-8859-1", decode("utf8", $a));
print $a."\n";