$answer =~ tr/OBAFGKM/1234567/;
if ($answer >= 56 && $answer <= 59) ...