$value =~ s/%(..)/pack("c", hex($1))/ge;