while($x=<STDIN> and $x !~ /^\s*\d+\s*$/) { print "Enter a number\n" }