^ (([0-9],?) +) $ Или ^ ([0-9],?) + $ / В зависимости от повторного использования
Test
my %a=qw(1,2,444,5, Pass
1,2,444,5 Pass
,1,2,444,5, Fail
,1,2,444,5 Fail
1,,2,444,5 Fail
1,,2,444,5,, Fail
);
while(my ($k,$v)=each(%a)) {
$vv = ($k =~ m/^(([0-9],?)+)$/) ? "Pass" : "Fail";
print "$k $v $vv\n";
};