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