redo if $digit[$i] =~ /\D/