-# if ( $cgi->param('state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/ ) {
-# $state = $1;
-# $county = $3 || '';
-# $country = $4;
-# } elsif ( $cgi->param('state') =~ /^(\w*)$/ ) {
-# $state = $1;
-# $cgi->param('county') =~ /^([\w ]*)$/
-# or die "illegal county: ". $cgi->param('county');
-# $county = $1;
-# $cgi->param('country') =~ /^(\w+)$/
-# or die "illegal country: ". $cgi->param('country');
-# $country = $1;
-# } else {
-# die "illegal state: ". $cgi->param('state');
-# }
-# if ( $cgi->param('ship_state') =~ /^(\w*)( \(([\w ]+)\))? ?\/ ?(\w+)$/ ) {
-# $ship_state = $1;
-# $ship_county = $3 || '';
-# $ship_country = $4;
-# } elsif ( $cgi->param('ship_state') =~ /^(\w*)$/ ) {
-# $ship_state = $1;
-# $cgi->param('ship_county') =~ /^([\w ]*)$/
-# or die "illegal county: ". $cgi->param('ship_county');
-# $ship_county = $1;
-# #$cgi->param('ship_country') =~ /^(\w+)$/
-# $cgi->param('ship_country') =~ /^(\w*)$/
-# or die "illegal ship_country: ". $cgi->param('ship_country');
-# $ship_country = $1;
-# #} else {
-# # die "illegal ship_state: ". $cgi->param('ship_state');
-# }
-