誰か教えてください。
perl-5.8.8で、URLエンコーディングのデコードをやりたいと思っています。
以下の様にやってみました。

　use encoding "euc-jp";
　$str = "%C6%FC%CB%DC";
　$str =~ tr/+/ /;
　$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/pack('H2', $1)/eg;
　print $str;

が、何も出力されません。

use encoding "euc-jp" を除くと正しく出力("日本")されるのですが、
この部分は入出力の関係上できればのこしておきたいと思っています。

どうしたら解決できるか、どなたかお分かりの方教えてください。