+ 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+)$/
+ or die "illegal ship_country: ". $cgi->param('ship_country');
+ $ship_country = $1;
+ #} else {
+ # die "illegal ship_state: ". $cgi->param('ship_state');
+ }