my $age;
{
    print "Please enter your age: ";
    chomp( $age = <STDIN> );
    redo if $age =~ /\D/;
}

Please enter your age:
Mind your own
Please enter your age:
As old as m'tongue and a little older than m'teeth.
Please enter your age:
300000000000