The change you gave me jdporter worked fine...but now when I try to change the d to a D it keeps giving me Please enter a number only...

# jdporter's change...worked fine
my $goal = int(rand($high-$low+1))+$low;

while (1) {
    print "Enter a number between $low and $high: ";

    #The answer from the user
    my $answer = <STDIN>;
    chomp($answer);
# when I change the d to a D I get "Please enter a number only"
    if ($answer !~ /\d+/) {
        print "Please enter a number only\n";
        next;
[download]