sub zipMatch {
        my $zip_card = shift;

        return 0 unless $zip_card =~ m/\b(\d{5})(?:-(\d{4}))?/b/;
        return 1 unless $2;
        return 2;
    }