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