my $age;
do {
    print "Please enter your age: ";
    chomp ($age = <STDIN>);
} while $age =~ /\D/;
print "Got it: $age\n";
__END__  
Please enter your age: hi there
Please enter your age: 123abc
Please enter your age: 99
Got it: 99