my ($year, $month, $day) = $maxdate =~ m/(\d+)-(\d+)-(\d+)/;

##</code><code>##

my ($year, $month, $day) = split /-/, $maxdate;