$oldest = 5; # Days $newest = 1; foreach (<*>) { next unless (-M $_ < $oldest && -M $_ > $newest); # Do stuff }