if ($value =~ /^[0-9]+(,[0-9]+)?$/) {
HTH
George
BTW
use \d instead of [0-9].
_______________________________________________ Perl-Unix-Users mailing list Perl-Unix-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
