Select Code to Download

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

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