die "Not a valid year\n" unless ($year =~ m/\d+$/);