use File::Find;
find(sub {if(/^\d{4}.*\.html$/){print qq!<A HREF="$_">$_</A><BR>!;}}, "/usr/html/");