my $ldir = '/strek';
my @races = undef;

opendir my $dh, $ldir
   or die "$0: opendir: $!";

while (defined(my $name = readdir $dh)) {
   next unless {-d "$ldir/$name"};
   push (@races, $name);
}

while (my $race = <@races>) {
   for my $i (0..4) {
      if ( -s '/strek/$race/logs/rlog$i.sr.html' ) {
         next;
      } else {
         print "/strek/$race/logs/rlog$i.sr.html either does not exist or is 0 bytes!\n";
      }
   }
}