Select Code to Download

use strict;
use warnings;
...
my ($m_year, $m_month, $d_day) = $maxdate =~ m/(^\d+)\-(\d+)-(\d+)/;

print "year: $m_year, Month: $m_month, Day: $d_day\n";

year: 2006, Month: 06, Day: 05