You can't have a dynamic number of captures in Perl 5 (except perhaps with very evil hacks), so you shouldn't even try to. If you want to work with the data, split it on the comma.

For validation, just use m/^\d{4}(?:,\d{4})*$/ (assuming that one four-digit number always has to be present).