$value =~
      s/%([\p{IsAlphabetic}\d][\p{IsAlphabetic}\d])/pack("C", hex($1))/egxsm;