my $string = '9500,9501';

if ($string =~ /^[\d{4}\,]+$/) {
    print "Looks ok\n";
}else {
    print "Not ok\n";
}