Select Code to Download

{
  print "Number?\n";
  redo unless <STDIN> =~ /^\d+$/;
}

{
  print "Number?\n";
  redo unless <STDIN> =~ /^(\d+)$/ and $number=$1;
}

print "Number?\n" while <STDIN> !~ /^\d+$/;