if ($b_month !~ /^\d+$/) {
    $b_month = Decode_Month($b_month,1);
}
if (! $b_month) {
    print "Sorry, that is not a month.\n";
    $b_month = birth_month();
 }