my $date = '23/06/2003';
$date =~ s!(\d{2})/(\d{2})/(\d{4})!$3-$2-$1!;
print $date;

__DATE__

2003-06-23