# Straight assignment
my ($year, $month, $day) = $data =~ /(\d{4})(\d{2})(\d{2})/;

# With optional default values
my ($year, $month, $day) = $data =~ /(\d{4})(\d{2})(\d{2})/ ? ($1,$2,$
+3) : (1970,1,1);
[download]