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

##</code><code>##

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