Select Code to Download

my $re = qr/beer=(\d{2}).*(?:vodka=(\d{2}))?.*chips=(\d{3})/;

#!/usr/bin/perl

...
        print "matched: @matched\n";
    }
}

my @targets = qw/beer=(\d{2}) (vodka=(\d{2})) chips=(\d{3})/;

...
        print "matched: @matched\n";
    }
}