redo if $digit[$i] !~ /^\d$/;