s/\%([0-9A-Z]{2})/chr(hex($1))/egi;