@pairs = split(/&/, $query_string);
	foreach $pair (@pairs) {
	($name, $value) = split(/=/, $pair);
		$value =~ tr/+/ /;
		$name =~ tr/+/ /;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
		$value =~ s/~!/ ~!/g;
		$name =~ s/~!/ ~!/g;
		$value =~ s/<([^>]|\n)*>//g if $name ne "comtext" && $name ne "ONld" && $name ne "edstext" && $name ne "mtxt"; 
		$name =~ s/<!--#(.|\n)*-->//g;
		$value =~ s/<!--#(.|\n)*-->//g;
		$value =~ s/("|')//g if $name ne "comtext" && $name ne "ONld" && $name ne "edstext" && $name ne "mtxt";
		$value =~ s/(`|\0|\\[^\\n])//g;
		$name =~ s/(`|\0|\\)//g;
	$FORM{$name} = $value;
	}