sub four_digit_year {
   my $year = shift;
   if ( $year !~ /\d{4}/ ) {
     return; # undef
   }
   return $year;
}