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

##</code><code>##

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

##</code><code>##

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