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