Select Code to Download

#!/usr/bin/perl
use strict;
...
my ($month, $day, $year) = split('/', $string);
my $new_date = join('-', $year, $month, $day);
print "$new_date\n";

...
my $string = $line[11];
my ($month, $day, $year) = split('/', $string);
my $new_date = join('-', $year, $month, $day);
...