Thanx. What a Cool Tip! I use Korean(Unicode) and it does pretty well with Nautilus and Vim! But may need little chage ;-)

from:
$data =~ s/%([\da-f][\da-f])/chr(hex($1))/eg;

to:
$data =~ s/%([\da-fA-F][\da-fA-F])/chr(hex($1))/eg;
[download]

http://perlmonks.org/index.pl?node_id=109