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

$date = "20021122";

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

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