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