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