>>84
定石は知らんが、漏れはこうしてる。

perl -e 'for(@ARGV){ ($new = $_) =~ s/%([a-f\d].)/pack("C",hex($1))/eig; rename $_,$new; }' *

aliasなりscriptなりにすれ。