#!/usr/bin/perl
use strict;
use warnings;

my $date = '1/2/03';
my @date_array = split(/\//, $date);
my $new_date = join('-', $date_array[2], $date_array[1], $date_array[0]);
print $new_date;