Select Code to Download

#!/usr/bin/perl
use strict;

Print “enter a 4 digit number:\n”;

print "enter a 4 digit number:\n";

Test: {
my $number = <STDIN>;
chomp $number;

If $number !=~ /[0-9][0-9][0-9][0-9]/{

if $number !~ /^[0-9][0-9][0-9][0-9]$/ {

    Print “try again – 4 digits\n”;

    print "try again – 4 digits\n";

    Redo TEST;

    redo Test;

    }
}

#!/usr/bin/perl
use strict;
...
    redo Test;
    }
}