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