Select Code to Download

my $input;
INPUT: {
...
    redo INPUT unless $input && $input=~/\A[0-9]+\z/;
}
print $input, "\n";