Here's a down-and-dirty way to do it:

$webpage->content =~ m/<select\s+name\s*=\s*"(.*?)".*?<option\s+select
+ed.*?>(.*?)</si;
print "$1\n$2\n";
[download]