#!/usr/bin/perl -w

use strict;

=pod

yyyymmdd
yyyyddmm
ddmmyyyy
mmddyyyy
yymmdd
yyddmm
ddmmyy
mmddyy

=cut

my %months = (
  1=>31, 2=>28, 3=>31, 4=>30, 5=>31, 6=>30,
  7=>31, 8=>31, 9=>31, 10=>31, 11=>30, 12=>31 ); 

for (<DATA> ) {
  chomp;
  print "$_ ";  
  print validate( $_ ) ? 'yep' : 'nope';
  print "\n";
}

sub validate_ymd {
  my ($y,$m,$d) = @_;

  # last minute addition / hack to make year 4 digit
  if ( length( $y ) == 2 ) {
    if ( $y > 3 ) {
      $y += 1900;
    } else {
      # close readers will see that these are equivalent...
      return 1 if validate_ymd( 1900 + $y, $m, $d ); 
      return 1 if validate_ymd( 2000 + $y, $m, $d );
      return 0;
    } 
  } 

  $y = int($y); $m=int($m); $d=int($d);

  return 0 if $y > 2003;
  return 0 if $y < 1900;

  my $leap = 0;
  if ( $m == 2 and !$y or !($y % 4) ) {
    $leap = 1;
  }

  return 0 unless exists $months{$m};
  return 0 unless $d and $d <= $months{$m} + $leap;
  print " (y $y m $m d $d) ";
  return 1;
}

sub validate {
  my $date = shift;
  return 0 if $date =~ /\D/; 

  my $length = length( $date );
  return 0 unless $length == 6 or $length == 8; 

  my @attempts;
  if ( $length == 6 ) {
    $date =~ /(..)(..)(..)/; 
    push @attempts, [$1,$2,$3], [$1,$3,$2], [$3,$1,$2], [$3,$2,$1];  

  } elsif ( $length == 8 ) {
    $date =~ /(....)(..)(..)/;
    push @attempts, [$1,$2,$3], [$1,$3,$2];  
    $date =~ /(..)(..)(....)/;
    push @attempts, [$3,$1,$2], [$3,$2,$1];  
  }
  foreach ( @attempts ) {
    return 1 if validate_ymd( @$_ );
  }
  return 0;
}

__DATA__
20000229
19970229
29020300
291254
002902
19990223
101172