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