#!/usr/bin/perl -w 
 
use strict; 
 
use Time::Piece; 
use Time::Seconds; 
 
my $today = localtime; 
 
while (<DATA>) { 
  chomp; 
 
  my $bday = Time::Piece->strptime($_, '%m%d%Y'); 
 
  my $diff = $today - $bday; 
 
  print "$_ - ", ($diff < 13 * ONE_YEAR) ? 'no' : 'yes', "\n"; 
} 
 
__END__ 
08251989 
08261989 
08271989 
08281989 
08291989 
08301989