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

Or the much simpler:

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

-- Randal L. Schwartz, Perl hacker