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