Search Results

So what have you tried? And what doesn't work?

Your sample date changes things a bit:
use strict;
use warnings;
use Time::Local;

sub ckdate {
my $date = shift @_;
my ($year, $mon, $mday) = $date =~ m{^(\d\d\d\d)(\d\d)(\d\d)$};
...

YMMV...

use strict;
use warnings;
use Time::Local;

sub ckdate {
my ($year, $mon, $mday) = @_;
return join '', @_ if defined eval { timegm(0, 0, 0, $mday, $mon-1, $year); };
return...

bhaskar v (https://www.unix.com/members/302157318.html),

Can you provide some sample data, and what you have tried thus far?

- D