use strict;
use warnings;

my $maxdate = "2006-06-05";
my ($m_year, $m_month, $d_day) = $maxdate =~ m/(^\d+)\-(\d+)-(\d+)/;

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

##</code><code>##

year: 2006, Month: 06, Day: 05