>>693
my ($year, $month, $day) = ($data =~ /^(\d\d\d\d)-(\d\d)-(\d\d)/);