#!/usr/bin/perl -w
use Date::Format;
$date=(time2str("%Y-%m-%d", time));
print "\n\n$date\n\n";
## works

's!(\d\d\d\d-\d\d-\d\d)(-[a-z_]{5,30}\.zip)!\$date$2!g' filename.html;
## doesn't work