# /usr/bin/perl
my $name;
my $email;
my $phone;
my $zip;
print "Please enter your name, e.g. John Doe: ";
while (<>) {
	unless ( /([A-Za-z]+)\s([A-Za-z]+)/i ) {
		 print "I am sorry, but this is no valid name. Try again: ";
		 next;
	}
	
	$name = $_;
	last;	
}
print "Please enter your email address, e.g. user@umass.edu: ";
while (<>) {
	unless ( /^[a-z][\w\.]*@[\w+\.]+\.[a-z]{2,3}$/i ) {
		 print "I am sorry, but this is no valid email address. Try again: ";
		 next;
	}
		
	$email = $_;
	last;
}
print "Please enter your phone number, e.g. (413) 545-0000: ";
while (<>) {
	unless ( /\(\d\d\d\)\s\d\d\d-\d\d\d\d/ ) {
			print "I am sorry, but this is no valid phone number. Try again: ";
			next;
	}
	
	$phone = $_;
	last;
}
print "Please enter 5-digit ZIP Code, e.g. 90210: ";
while (<>) {
	unless ( /\d\d\d\d\d/ ) {
	 		print "I am sorry, but this is no valid ZIP code. Try again: ";
			next;
	}
	
	$zip = $_;
	last;
}
print "\n";
print "-" x 60;
print "\nYour name is: $name\n";
print "Your email address is: $email\n";
print "Your phone number is: $phone\n";
print "Your ZIP code is: $zip\n";
print "-" x 60;