#!/perl/bin/perl.exe -w

$date = "20021122";

($year, $month, $day) = $date =~ m/(\d{4})(\d{2})(\d{2})/;

print "YEAR $year\n";
print "MONTH $month\n";
print "DAY $day\n";