Help for this page

Select Code to Download

Select or download this
```
redo if $digit[$i] !~ /^\d$/;
```
Select or download this
```
redo if $digit[$i] =~ /\D/
```