A select few
--#--
I've saved the hardest for last -- the drop down boxes, or 
<select>. Not only must you grab the whole, multi-lined 
select element and insert a <i>SELECT</i> on the correct <i>OPTION</i>
line. There are at least two prominent styles of coding select boxes --
with and without a <i>VALUE</i> parameter.<br>
<br>
We'll worry about the style differences in a minute. First let's grab
all of them in a form. For selects, we won't just push the name onto 
an array, we'll push the whole element <i>&lt;select ...&gt; ... 
&lt;/select&gt;</i>. Note, that this involves reconstituting the part 
of the element that was lost in the the split.<br>
<br>
<code>
sub getSelects {
	my($html) = @_;
	my @s = ();
	my @selects = split(/<select/i, $html);
	for (1..@selects - 1) {
		$selects[$_] =~ s/( name="?[^\/]*\/select>).*/$1/si;
		push(@s, "<select" . $selects[$_]);
	}
	return @s;
}
</code>
<br>
See the part at the tail end of the match? The <i>.*</i> that was left 
out of the parentheses? This is all the text after this select and before
the next. It's truncated off before the element is pushed onto the array.<br>
<br>