$age-- unless sprintf("%02d%02d", $month+1, $day)