my $zip = $cgi->param('zipcode');
$zip = $1 if $zip =~ m/^(\d{5})$/;