my @exts; my @eFILES = grep { /^env\.([a-z]{3})$/; push @exts, $1 if $1 && ($_ ne 'env.fix') && -f "$LIBDIR/$_" } readdir(LDIR);