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