Select Code to Download

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