s/%(..)/pack("C", hex($1))/eg;