$my_input = $ENV{QUERY_STRING};
$my_input=substr($my_input,9);
$my_input =~ s/%21/!/g;
$my_input =~ s/%22/"/g;
$my_input =~ s/%A3/£/g;
$my_input =~ s/%24/\$/g;

$my_input =~ s/%25/\%/g;
$my_input =~ s/%5E/^/g;
$my_input =~ s/%26/\&/g;
$my_input =~ s/%28/(/g;

$my_input =~ s/%29/)/g;
$my_input =~ s/%3D/=/g;
$my_input =~ s/%2B/+/g;
$my_input =~ s/%7B/{/g;

$my_input =~ s/%7D/}/g;
$my_input =~ s/%5B/[/g;
$my_input =~ s/%5D/]/g;
$my_input =~ s/%3A/:/g;

$my_input =~ s/%3B/;/g;
$my_input =~ s/%27/'/g;
$my_input =~ s/%23/\#/g;
$my_input =~ s/%7E/~/g;

$my_input =~ s/%7C/\|/g;
$my_input =~ s/%5C/\\/g;
$my_input =~ s/%3C/</g;
$my_input =~ s/%2C/,/g;


$my_input =~ s/%3E/>/g;
$my_input =~ s/%2F/\//g;
$my_input =~ s/%3F/?/g;
$my_input =~ s/%AC/¬/g;

$my_input =~ s/%60/`/g;
$my_input =~ s/\+/ /g;
$my_input =~ s/%0D%0A/<br>/g;

my_input =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;