my $regex = qr/(?:[\S(^,)]+)/;
my $var = "abc,d";
$flag=1 if $var =~ /\G ($regex) /gcx;
print "matches \n" if $flag==1;
print "not matches \n" if $flag==0;