my $date = '06/30/2003';

$date =~ s!(\d{2})/(\d{2})/(\d{4})!$3-$1-$2!;