今さらなメモ。
"%uXXXX" 形式の文字列を Perl でデコードする方法。

s/%u([A-Fa-f0-9]{4})/chr(hex($1))/eg

perl -le '$a = "%u3044%u3061%u3054";
$a =~ s/%u([A-Fa-f0-9]{4})/chr(hex($1))/eg;
print $a'
→
いちご

URI::Escape::JavaScript の unescape でもいけるみたい。