my ($ga) = $str =~ /VALUE="([^"]+)" SELECTED/;