Help for this page
{ print "Number?\n"; redo unless <STDIN> =~ /^\d+$/; }
{ print "Number?\n"; redo unless <STDIN> =~ /^(\d+)$/ and $number=$1; }
print "Number?\n" while <STDIN> !~ /^\d+$/;
www.com | www.net | www.org
No recent polls found