perl -i.bak -pe 's/\%([0-7][0-9-A-F])/char(hex($1))/g' <filename>