Select Code to Download

sub test {
  my ($date) = @_;
...
  /x;
  print "$year-$month-$day\n";
}

sub test {
  my ($date) = @_;
...
  my ($year, $month, $day) = $date =~ m/(\d+)-(\d+)-(\d+)/;
  print "$year-$month-$day\n";
}