perl -i.bak -pe 's/\%([0-7][0-9A-F])/chr(hex($1))/ge' 
##</code><code>##

s/\%([2-6][0-9A-F]|7[0-9A-E])/chr(hex($1))/ge