Help for this page
my ($zip_match) = $card_zip =~ /(12345)\-?(6789)?/;
my (@zip_match) = $card_zip =~ /(12345)\-?(6789)?/g;
my ($zip_match) = scalar($card_zip =~ /(12345)\-?(6789)?/);