$_ = $card_zip;
my $zip_match = () = /(12345)\-?(6789)?/g;