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