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