GET_NUMBER:{ print "Enter a number 0-9\n"; $number=; chomp($number); unless(length($number) == 1 && $number =~ /[0-9]/){ print "C'mon, man! give me a number 0-9!\n"; redo GET_NUMBER; } }