Select Code to Download

$date = '8/1/2008';
$date =~ s!(?<month>\d{1,2})/(?<day>\d{1,2})/(?<year>\d{4})!$+{year}-$
++{month}-$+{day}!;