Select Code to Download

my $date = "12-02-2000";
(my $out = $date) =~ s/(\d{1,2})-(\d{1,2})-(\d{2,4})/$3\-$1\-$2/;