Value options
--#--
The other elements we got by name. These, we got the whole gorilla. 
First we have to extract the name, so we can match the right value 
to the option within the &lt;select&gt;<br>
<br>
<code>
@selects = getSelects($html_contents);
foreach (@selects) {
	$name = selectName($_);
...

sub selectName {
	my ($select) = @_;
	if ($select =~ /name="?(\w*)"?/si) {
		return $1;
	}
	else { return ""; }
}
</code>
<br>
Now it's time to tag the select option that was selected. We do 
this by making a copy of the whole &lt;select&gt; element, and 
substituting the copy for the original. <br>
<br>
Note that there are (at least) two ways of writing a &lt;select&gt;.<br>
<br>
<code>
<select name="favorites">
<option>
<option> Strawberry
<option> Chocolate
<option> Vanilla
</select>

<select name="favorites">
<option value="">
<option value="Strawberry"> Strawberry
<option value="Chocolate"> Chocolate
<option value="Vanilla"> Vanilla
</select>
</code>
<br>
Since the <i>value</i> term may or may not be present, we need
to present two options.<br>
<br>
<code>
if (/value="$val"/i) {
	$new_select =~ s/(<option\s+value="?$val"?)>/$1 SELECTED>/si;
}
else {
	$new_select =~ s/(<option)(>\s*$val)/$1 SELECTED$2/si;
}
</code>
<br>
Putting this all together, the final step is the most mundane 
substitution we've done all night.<br>
<br>
<code>
@selects = getSelects($html_contents);
foreach (@selects) {
	$name = selectName($_);
	$new_select = $_;
	$val = $query->param($name);
	if (/value="$val"/i) {
		$new_select =~ s/(<option\s+value="?$val"?)>/$1 SELECTED>/si;
	}
	else {
		$new_select =~ s/(<option)(>\s*$val)/$1 SELECTED$2/si;
	}
	$html_contents =~ s/$_/$new_select/si;
}
</code>
<br>