#!/usr/bin/perl -w
use strict;
use Date::Manip;
while (<DATA>) {
    chomp;
    my $date = ParseDate($_);
    if ($date) {
        print "$_ \t=> ",  UnixDate($date,"%b %e, %Y."),"\n";
    }
    else {
        print "$_ \t=> not a valid date\n";
    }
}

__DATA__
19971103
11031997
11.03.1997
19983201
20031110
20031011
1993jan02
2002dec08
yesterday
today
tomorrow
Aug12
12Aug2003
Aug122003
122003Aug