use Date::Manip;

my $str_date = shift || die "give a date!\n";  # almost *any* format

$str_date = 
    $str_date =~ /^(?!19|20)\d{7,10}$/ ?
    ParseDateString("epoch $str_date") : $str_date;

print UnixDate( ParseDate( $str_date ), "\t%D %X, %A\n");