if ($answer =~ /\D/) {