Here is a way that works on dates with or without punctuation (:

$date = sprintf "%d%d-%02d-%02d", $date =~ /(\d\d?)/g
[download]

                - tye