$date =~ m!(\d{2})/(\d{2})/(\d{4})!;

print "$3-$2-$1\n";

__DATE__

2003-06-23