... unless $yearfield =~ /^(\d{2}){1,2}$/;
 if (length($yearfield) == 2) {
   $millen = ( $yearfield =~ /^0/ ) ? "20" : "19";
   $yearfield = $millen . $yearfield;
 }
 ...