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