my ($mday, $mon, $year) = split /\//, $dated;