if ($answer !~ /\D+/) { ## if answer doesn't have any non-digits
        print "Please enter a number only\n"; ## Really?
        next;
    }

##</code><code>##

if ($answer =~ /\D/) { 
## if answer has any non-digits 
        print "Please enter a number only\n";
        next;
    }