#!/usr/bin/perl

use strict;
use warnings;

my $sdate0='10/28/2008';

my @sdate = split /\//, $sdate0;
my $sdate1 = join '-', $sdate[2],$sdate[0],$sdate[1];
print "$sdate1\n";