Carp::carp("Bad <select> tag '$tag'") if $^W;
if ($tag eq "/form" ||
    $tag eq "input" || ...