# Assumes filenames of the form *yyyymmdd.txt
my $filepattern = sprintf("*%d%d%d.txt", 
  1900+(localtime)[5], 1+(localtime)[4], (localtime)[3]); 
foreach my $filename (glob($filepattern)) {
    # Process individual files herein
}