Oops -- mistyped:
if ($value =~ /^[0-9]+(,[0-9]+)*$/) {
should be correct i think.
Sorry :(
George
_______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs