Code

sub readform {
	my(@pairs, $pair, $name, $value);
	my $query = new CGI;
	if($ENV{QUERY_STRING} =~ m~;~) { @pairs = split(/;/, $ENV{QUERY_STRING}); }
	else { @pairs = split(/&/, $ENV{QUERY_STRING}); }
	foreach $pair (@pairs) {
		  ($name,$value) = split(/=/, $pair);
		  $name =~ tr/+/ /;
		  $name =~ 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;
		  $INFO{$name} = $value;
	}
	my (@keylist) = sort($query->param());
	foreach $key (@keylist) {
		if ($query->param('file')) {
			$filename = $query->param('file');
			$postsize -= length($query->param('file'));
			$tmpfile = $query->tmpFileName($filename);
		}

		$postsize += length($query->param($key));
		# may be dealing with multiple values; need to join with comma
		$value = join(', ', $query->param($key));
		$FORM{$key} = $value;
	}
	$action = $INFO{'action'};
	&ToHTML($INFO{'title'}); &ToHTML($FORM{'title'});
	&ToHTML($INFO{'subject'}); &ToHTML($FORM{'subject'});
} 

Code

<search for>
	split_string(\$ENV{QUERY_STRING}, \%INFO, 1);
</search for>

<replace>
	split_string(\$testenv, \%INFO, 1);
</replace>