s/%([0-9a-fA-F][0-9a-fA-F])/pack("c",hex($1))/ge;