I am writing a perl script that will edit text files and write them back out in URL encoding. The problem is PERL isn't converting special characters. Ex. "%" is showing up as "=%25". I am using the following to decode:
Code:
foreach $pair (@pairs) {
	($key, $value) = split (/=/, $pair);
	$key =~ tr/+/ /;
	$key =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
	
	#$value =~s/<!--(.|\n)*-->//g;
	
	if ($formdata{$key}) {
		$formdata{$key} .= ", $value";
	} else {
		$formdata{$key} = $value;
	}
}
Any Ideas?