use strict;
use warnings;

$_ = '1,2,3,4,5';
print /(,?\d)+/;