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

This looks like you are decoding URL encoded form data yourself - in modern code you probably want to use the CGI module to access CGI form parameters.

/J\