my $datein = "7-19-2005";
my ($month,$day,$year) = $datein =~ /(\d+)-(\d+)-(\d+)/;
my $dateout = "$year-$month-$day";
$dateout =~ s/-(\d)-/-0$1-/;
print "$dateout\n";