$str =~ s/%([0-9A-Fa-f][0-9A-Fa-f])/chr(hex($1))/eg;