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

##</code><code>##

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