#!/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;
	}
}