my $zip_re = qr/^$RE{zip}{US}{-extended => 'allow'}$/;

  subtype USZipCodeB
      => as Value
      => where {
            $_ =~ $zip_re;         
      };