I was doing almost the samething earlier today at work, where I formatted date to yyyy/mm/dd instead. The following code should format the date to your specification.

$date =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;
[download]