you can replace

$date =~ s!0?(\d+)/0?(\d+)!$1/$2!;
[download]

with

$date =~ s!0?(\d+/)!$1!g;
[download]

for month and day.