Try to do like this:

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

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

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);