a:   for(@infiles) {
b:      $_ =~ s/^(\.|\.\.)$//;
c:      if (-d $_) {