#!/usr/bin/perl
use strict;
####
Print “enter a 4 digit number:\n”;
##
##
print "enter a 4 digit number:\n";
##
##
Test: {
my $number = ;
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;
print "enter a 4 digit number:\n";
Test: {
my $number = ;
chomp $number;
if ($number !~ /^[0-9][0-9][0-9][0-9]$/) {
print "try again – 4 digits\n";
redo Test;
}
}